diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-06-06 12:07:13 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-06-06 12:07:13 +0000 |
| commit | 6fbaa68a2b566293f43f6d0d9e30e2cefc4d3164 (patch) | |
| tree | 63a39028a80cfdedb83604031e92223afbb0ba84 | |
| parent | 2b8d773d4eceb2953bfb94958c430a08dbb56032 (diff) | |
| download | perl-6fbaa68a2b566293f43f6d0d9e30e2cefc4d3164.tar.gz | |
A test file was removed from the latest Unicode::Normalize
p4raw-id: //depot/perl@31339
| -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"; - |