Lots of consting

[p5sagit/p5-mst-13.2.git] / t / op / ord.t

diff --git a/t/op/ord.t b/t/op/ord.t
index f746055..4556664 100755 (executable)
--- a/t/op/ord.t
+++ b/t/op/ord.t
@@ -2,11 +2,11 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '.';
+    @INC = qw(. ../lib); # ../lib needed for test.deparse
     require "test.pl";
 }
 
-print "1..8\n";
+plan tests => 7;
 
 # compile time evaluation
 
@@ -33,10 +33,3 @@ is(ord("\x{1234}"), 0x1234, 'compile time ord \x{....}');
 $x = "\x{1234}";
 is(ord($x), 0x1234, 'runtime ord \x{....}');
 
-{
-    eval 'my $surrogate = chr(0xD800)';
-
-    like($@, qr/^UTF-16 surrogate 0xd800 /, "surrogates bad");
-}
-
-