From 110e50bd92a8e0999a6ee62a296198cb452ca2b8 Mon Sep 17 00:00:00 2001 From: Charles Bailey Date: Thu, 2 Mar 2000 04:00:20 +0000 Subject: [PATCH] Increment counter for skipped tests (Charles Lane) p4raw-id: //depot/vmsperl@5424 --- t/io/open.t | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/t/io/open.t b/t/io/open.t index 1e94091..531fc85 100755 --- a/t/io/open.t +++ b/t/io/open.t @@ -95,7 +95,7 @@ sub ok { print "ok $test\n"; $test++ } # 24..26 if ($Is_VMS) { - for (24..26) { print "ok $_ # skipped: not Unix fork\n"; } + for (24..26) { print "ok $_ # skipped: not Unix fork\n"; $test++;} } else { print "# \$!='$!'\nnot " unless open(my $f, '-|', <<'EOC'); @@ -111,7 +111,7 @@ EOC # 27..30 if ($Is_VMS) { - for (27..30) { print "ok $_ # skipped: not Unix fork\n"; } + for (27..30) { print "ok $_ # skipped: not Unix fork\n"; $test++;} } else { print "# \$!='$!'\nnot " unless open(my $f, '|-', <<'EOC'); @@ -219,7 +219,7 @@ ok; # 56..58 if ($Is_VMS) { - for (56..58) { print "ok $_ # skipped: not Unix fork\n"; } + for (56..58) { print "ok $_ # skipped: not Unix fork\n"; $test++;} } else { print "# \$!='$!'\nnot " unless open(local $f, '-|', <<'EOC'); @@ -235,7 +235,7 @@ EOC # 59..62 if ($Is_VMS) { - for (59..62) { print "ok $_ # skipped: not Unix fork\n"; } + for (59..62) { print "ok $_ # skipped: not Unix fork\n"; $test++;} } else { print "# \$!='$!'\nnot " unless open(local $f, '|-', <<'EOC'); -- 2.7.4