Upgrade to Encode 1.11, from Dan Kogai.

[p5sagit/p5-mst-13.2.git] / ext / Encode / t / encoding.t

diff --git a/lib/encoding.t b/ext/Encode/t/encoding.t
similarity index 96%
rename from lib/encoding.t
rename to ext/Encode/t/encoding.t
index ec21c1b..e23820a 100644 (file)
--- a/lib/encoding.t
+++ b/ext/Encode/t/encoding.t
@@ -168,7 +168,7 @@ print "ok 25\n";
 
 # some more eq, cmp
 
-my $byte=pack("C*", 0xDF);
+$byte=pack("C*", 0xDF);
 
 print "not " unless pack("U*", 0x3AF) eq $byte;
 print "ok 26\n";
@@ -182,5 +182,9 @@ print "not " unless ((pack("U*", 0x3B0)       cmp $byte) ==  1) &&
                    ((pack("U*", 0x3AF) cmp pack("C*",0xDF,0x20))==-1);
 print "ok 28\n";
 
-# Used to core dump in 5.7.3
-print ord undef == 0 ? "ok 29\n" : "not ok 29\n";
+
+{
+    # Used to core dump in 5.7.3
+    no warnings; # so test goes noiselessly
+    print ord(undef) == 0 ? "ok 29\n" : "not ok 29\n";
+}