Better diagnostics for the tests for #20683.
authorNicholas Clark <nick@ccl4.org>
Thu, 27 Dec 2007 23:28:31 +0000 (23:28 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 27 Dec 2007 23:28:31 +0000 (23:28 +0000)
p4raw-id: //depot/perl@32749

t/op/pat.t

index 138e5b1..821e652 100755 (executable)
@@ -3138,13 +3138,13 @@ ok("bbbbac" =~ /$pattern/ && $1 eq 'a', "[perl #3547]");
     foreach (1,2,3,4) {
            $p++ if /(??{ $p })/
     }
-    ok ($p == 5, "[perl #20683] (??{ }) returns stale values");
+    iseq ($p, 5, "[perl #20683] (??{ }) returns stale values");
     { package P; $a=1; sub TIESCALAR { bless[] } sub FETCH { $a++ } }
     tie $p, P;
     foreach (1,2,3,4) {
            /(??{ $p })/
     }
-    ok ( $p == 5, "(??{ }) returns stale values");
+    iseq ( $p, 5, "(??{ }) returns stale values");
 }
 
 {