From ff7e6c8c9b08f16247bcf01e2aae70f50b33d8b2 Mon Sep 17 00:00:00 2001
From: David Landgren <david@landgren.net>
Date: Wed, 3 May 2006 18:20:40 +0200
Subject: [PATCH] t/op/context.t using test.pl Message-ID:
 <4458BC38.6050600@landgren.net>

p4raw-id: //depot/perl@28094
---
 t/op/context.t | 21 +++++++++++++++------
 1 file changed, 15 insertions(+), 6 deletions(-)

diff --git a/t/op/context.t b/t/op/context.t
index 4625441efa..8753d1ee34 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");
-- 
2.34.1