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

p4raw-id: //depot/perl@31339

1 files changed, 0 insertions, 60 deletions

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";
-