This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix test numerotation
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 4 May 2005 18:31:19 +0000 (18:31 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 4 May 2005 18:31:19 +0000 (18:31 +0000)
p4raw-id: //depot/perl@24386

t/op/goto.t

index e549e1e..ac3e489 100755 (executable)
@@ -10,7 +10,7 @@ BEGIN {
 
 use warnings;
 use strict;
-plan tests => 53;
+plan tests => 54;
 
 our $foo;
 while ($?) {
@@ -186,7 +186,7 @@ ok($ok, 'works correctly in a nested eval string');
 
 sub f1 {
     my $x;
-    goto sub { $x=0; print "ok 28 - don't prematurely free CV\n" }
+    goto sub { $x=0; ok(1,"don't prematurely free CV\n") }
 }
 f1();