File: 01_references.t

package info (click to toggle)
libunicode-stringprep-perl 1.105%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 272 kB
  • sloc: perl: 3,557; makefile: 2
file content (21 lines) | stat: -rw-r--r-- 343 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
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');