From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Wed, 6 Jun 2007 12:07:13 +0000 (+0000)
Subject: A test file was removed from the latest Unicode::Normalize
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6fbaa68a2b566293f43f6d0d9e30e2cefc4d3164;p=p5sagit%2Fp5-mst-13.2.git

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