%PDF- %PDF-
Direktori : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Unicode-Stringprep-1.105/t/ |
Current File : /home/opti/optisoftcom/.cpanm/work/1544535425.21555/Unicode-Stringprep-1.105/t/01_references.t |
use strict; use utf8; use Test::More tests => 4; use Test::NoWarnings; use Unicode::Stringprep; my $prep = Unicode::Stringprep->new( 3.2, [ ], '', [ ], 0 ); is(ref $prep, 'Unicode::Stringprep', 'bless you'); *prep = $prep; is(eval { prep('TEST') }, 'TEST', 'direct call'); is(eval { $prep->('TEST') }, 'TEST', 'indirect call');