diff options
Diffstat (limited to 'dist/Unicode-Normalize/t/tie.t')
-rw-r--r-- | dist/Unicode-Normalize/t/tie.t | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/dist/Unicode-Normalize/t/tie.t b/dist/Unicode-Normalize/t/tie.t index ea050e89a5..1282405001 100644 --- a/dist/Unicode-Normalize/t/tie.t +++ b/dist/Unicode-Normalize/t/tie.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); |