Some more tests for \N

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

diff --git a/t/op/dor.t b/t/op/dor.t
index 04e0f7d..602a03c 100644 (file)
--- a/t/op/dor.t
+++ b/t/op/dor.t
@@ -8,10 +8,9 @@ BEGIN {
 }
 
 package main;
-use feature "err";
 require './test.pl';
 
-plan( tests => 35 );
+plan( tests => 31 );
 
 my($x);
 
@@ -26,17 +25,6 @@ is($x // 0, '',              '       // : left-hand operand defined but empty');
 
 like([] // 0, qr/^ARRAY/,      '       // : left-hand operand a referece');
 
-$x=1;
-is(($x err 0), 1,      '       err: left-hand operand defined');
-
-$x = undef;
-is(($x err 1), 1,      '       err: left-hand operand undef');
-
-$x='';
-is(($x err 0), '',     '       err: left-hand operand defined but empty');
-
-like(([] err 0), qr/^ARRAY/,   '       err: left-hand operand a referece');
-
 $x=undef;
 $x //= 1;
 is($x, 1,              '       //=: left-hand operand undefined');