t/op/context.t using test.pl

Message-ID: <4458BC38.6050600@landgren.net>

p4raw-id: //depot/perl@28094

diff --git a/t/op/context.t b/t/op/context.t
index 4625441efa746dfe37029a0c07528e95b4386d85..8753d1ee342ece6b4f1a02cf4a62577963613aa5 100755 (executable)
--- a/t/op/context.t
+++ b/t/op/context.t
@@ -1,18 +1,27 @@
 #!./perl
 
-$n=0;
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = qw(. ../lib);
+}
 
-print "1..3\n";
+require "test.pl";
+plan( tests => 7 );
 
 sub foo {
     $a='abcd';
-
     $a=~/(.)/g;
-
-    $1 eq 'a' or print 'not ';
-    print "ok ",++$n,"\n";
+    cmp_ok($1,'eq','a','context ' . curr_test());
 }
 
 $a=foo;
 @a=foo;
 foo;
+foo(foo);
+
+my $before = curr_test();
+$h{foo} = foo;
+my $after = curr_test();
+
+cmp_ok($after-$before,'==',1,'foo called once')
+       or diag("nr tests: before=$before, after=$after");