A test file was removed from the latest Unicode::Normalize

p4raw-id: //depot/perl@31339

diff --git a/MANIFEST b/MANIFEST
index 91e5bee..8ec219d 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -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 (file)
index a9e444f..0000000
--- 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";
-