%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');