This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
test numbers for t/op/write.t
authorCraig A. Berry <craigberry@mac.com>
Fri, 8 Mar 2002 15:02:51 +0000 (09:02 -0600)
committerJarkko Hietaniemi <jhi@iki.fi>
Fri, 8 Mar 2002 20:05:41 +0000 (20:05 +0000)
From: "Craig A. Berry" <craigberry@mac.com>
Message-Id: <5.1.0.14.2.20020308145949.030c8c90@exchi01>

p4raw-id: //depot/perl@15117

t/op/write.t

index 302742b..e08a64b 100755 (executable)
@@ -271,11 +271,11 @@ if (`$CAT Op_write.tmp` eq $right)
 else
     { print "not ok 11\n"; }
 
-# 12..44: scary format testing from Merijn H. Brand
+# 12..47: scary format testing from Merijn H. Brand
 
 if ($^O eq 'VMS' || $^O eq 'MSWin32' || $^O eq 'dos' ||
     ($^O eq 'os2' and not eval '$OS2::can_fork')) {
-  foreach (12..44) { print "ok $_ # skipped: '|-' and '-|' not supported\n"; }
+  foreach (12..47) { print "ok $_ # skipped: '|-' and '-|' not supported\n"; }
   exit(0);
 }
 
@@ -399,7 +399,7 @@ if (has_format ("EOF")) {
 
 close STDOUT;
 
-# That was test 44.
+# That was test 47.
 
 __END__