diff options
Diffstat (limited to 'dist/Unicode-Normalize/t/func.t')
| -rw-r--r-- | dist/Unicode-Normalize/t/func.t | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/dist/Unicode-Normalize/t/func.t b/dist/Unicode-Normalize/t/func.t index b59ef31693..a5eb0b34b7 100644 --- a/dist/Unicode-Normalize/t/func.t +++ b/dist/Unicode-Normalize/t/func.t @@ -1,16 +1,5 @@ BEGIN { - unless ('A' eq pack('U', 0x41)) { - print "1..0 # Unicode::Normalize cannot pack a Unicode code point\n"; - exit 0; - } - unless (0x41 == unpack('U', 'A')) { - print "1..0 # Unicode::Normalize cannot get a Unicode code point\n"; - exit 0; - } -} - -BEGIN { if ($ENV{PERL_CORE}) { chdir('t') if -d 't'; @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib); @@ -29,7 +18,7 @@ use Unicode::Normalize qw(:all); ok(1); -sub _pack_U { Unicode::Normalize::pack_U(@_) } +sub _pack_U { Unicode::Normalize::dot_t_pack_U(@_) } sub hexU { _pack_U map hex, split ' ', shift } # This won't work on EBCDIC platforms prior to v5.8.0, which is when this |