This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/op/context.t using test.pl
authorDavid Landgren <david@landgren.net>
Wed, 3 May 2006 16:20:40 +0000 (18:20 +0200)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Thu, 4 May 2006 09:58:28 +0000 (09:58 +0000)
Message-ID: <4458BC38.6050600@landgren.net>

p4raw-id: //depot/perl@28094

t/op/context.t

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