1 files changed, 0 insertions, 85 deletions
diff --git a/gnu/usr.bin/perl/cpan/Unicode-Normalize/t/illegal.t b/gnu/usr.bin/perl/cpan/Unicode-Normalize/t/illegal.t
deleted file mode 100755
index ccf2b4aae62..00000000000
--- a/gnu/usr.bin/perl/cpan/Unicode-Normalize/t/illegal.t
+++ /dev/null
@@ -1,85 +0,0 @@
-
-BEGIN {
-    unless ('A' eq pack('U', 0x41)) {
-	print "1..0 # Unicode::Normalize cannot pack a Unicode code point\n";
-	exit 0;
-    }
-    unless (0x41 == unpack('U', 'A')) {
-	print "1..0 # Unicode::Normalize cannot get 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;
-    }
-}
-
-#########################
-
-BEGIN {
-    use Unicode::Normalize qw(:all);
-
-    unless (exists &Unicode::Normalize::bootstrap or 5.008 <= $]) {
-	print "1..0 # skipped: XSUB, or Perl 5.8.0 or later".
-		" needed for this test\n";
-	print $@;
-	exit;
-    }
-}
-
-use strict;
-use warnings;
-
-BEGIN { $| = 1; print "1..113\n"; }
-my $count = 0;
-sub ok ($;$) {
-    my $p = my $r = shift;
-    if (@_) {
-	my $x = shift;
-	$p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x;
-    }
-    print $p ? "ok" : "not ok", ' ', ++$count, "\n";
-}
-
-ok(1);
-
-#########################
-
-no warnings qw(utf8);
-
-for my $u (0xD800, 0xDFFF, 0xFDD0, 0xFDEF, 0xFEFF, 0xFFFE, 0xFFFF,
-	   0x1FFFF, 0x10FFFF, 0x110000, 0x3FFFFFFF)
-{
-    my $c = chr $u;
-    ok($c eq NFD($c));  # 1
-    ok($c eq NFC($c));  # 2
-    ok($c eq NFKD($c)); # 3
-    ok($c eq NFKC($c)); # 4
-    ok($c eq FCD($c));  # 5
-    ok($c eq FCC($c));  # 6
-    ok($c eq decompose($c));   # 7
-    ok($c eq decompose($c,1)); # 8
-    ok($c eq reorder($c));     # 9
-    ok($c eq compose($c));     # 10
-}
-
-our $proc;    # before the last starter
-our $unproc;  # the last starter and after
-
-sub _pack_U   { Unicode::Normalize::pack_U(@_) }
-
-($proc, $unproc) = splitOnLastStarter(_pack_U(0x41, 0x300, 0x327, 0xFFFF));
-ok($proc   eq _pack_U(0x41, 0x300, 0x327));
-ok($unproc eq "\x{FFFF}");
-