[PATCH] cleanup t/op/taint.t

Date: Fri, 10 Dec 2004 02:04:49 -0500
Message-ID: <20041210070448.GA22347@windhund.schwern.org>

Subject: [PATCH] Add todo_skip() to test.pl
From: Michael G Schwern <schwern@pobox.com>
Date: Fri, 10 Dec 2004 04:27:06 -0500
Message-ID: <20041210092706.GA23378@windhund.schwern.org>

p4raw-id: //depot/perl@23635

1 files changed, 12 insertions, 0 deletions

diff --git a/t/test.pl b/t/test.pl
index e2edccb4f8..36a12c32f9 100644
--- a/t/test.pl
+++ b/t/test.pl
@@ -291,6 +291,18 @@ sub skip {
     last SKIP;
 }
 
+sub todo_skip {
+    my $why = shift;
+    my $n   = @_ ? shift : 1;
+
+    for (1..$n) {
+        print STDOUT "ok $test # TODO & SKIP: $why\n";
+        $test++;
+    }
+    local $^W = 0;
+    last TODO;
+}
+
 sub eq_array {
     my ($ra, $rb) = @_;
     return 0 unless $#$ra == $#$rb;