From: David Landgren <david@landgren.net>
Date: Wed, 3 May 2006 16:20:40 +0000 (+0200)
Subject: t/op/context.t using test.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ff7e6c8c9b08f16247bcf01e2aae70f50b33d8b2;p=p5sagit%2Fp5-mst-13.2.git

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 4625441..8753d1e 100755
--- 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");