diff options
| -rw-r--r-- | MANIFEST | 1 | ||||
| -rw-r--r-- | ext/Unicode/Normalize/t/short.t | 60 |
2 files changed, 0 insertions, 61 deletions
@@ -1189,7 +1189,6 @@ ext/Unicode/Normalize/t/illegal.t Unicode::Normalize ext/Unicode/Normalize/t/norm.t Unicode::Normalize ext/Unicode/Normalize/t/null.t Unicode::Normalize ext/Unicode/Normalize/t/proto.t Unicode::Normalize -ext/Unicode/Normalize/t/short.t Unicode::Normalize ext/Unicode/Normalize/t/split.t Unicode::Normalize ext/Unicode/Normalize/t/test.t Unicode::Normalize ext/Unicode/Normalize/t/tie.t Unicode::Normalize diff --git a/ext/Unicode/Normalize/t/short.t b/ext/Unicode/Normalize/t/short.t deleted file mode 100644 index a9e444f98a..0000000000 --- a/ext/Unicode/Normalize/t/short.t +++ /dev/null @@ -1,60 +0,0 @@ - -BEGIN { - unless ("A" eq pack('U', 0x41)) { - print "1..0 # Unicode::Normalize " . - "cannot stringify 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); - } -} - -BEGIN { - unless (5.006001 <= $]) { - print "1..0 # skipped: Perl 5.6.1 or later". - " needed for this test\n"; - exit; - } -} - -######################### - -use strict; -use Unicode::Normalize qw(:all); - -print "1..8\n"; -print "ok 1\n"; - -######################### - -no warnings qw(utf8); - -# U+3042 is 3-byte length (in UTF-8/UTF-EBCDIC) -our $a = pack 'U0C', unpack 'U0C', "\x{3042}"; - -print NFD($a) eq "\0" - ? "ok" : "not ok", " 2\n"; - -print NFKD($a) eq "\0" - ? "ok" : "not ok", " 3\n"; - -print NFC($a) eq "\0" - ? "ok" : "not ok", " 4\n"; - -print NFKC($a) eq "\0" - ? "ok" : "not ok", " 5\n"; - -print decompose($a) eq "\0" - ? "ok" : "not ok", " 6\n"; - -print reorder($a) eq "\0" - ? "ok" : "not ok", " 7\n"; - -print compose($a) eq "\0" - ? "ok" : "not ok", " 8\n"; - |