[PATCH] Add todo_skip() to test.pl

[Michael G Schwern]

This adds todo_skip() to test.pl (ie. skip these tests AND mark them as
TODO).  Necessary for the taint.t patch I just posted.

-- 
Michael G Schwern        [EMAIL PROTECTED]  http://www.pobox.com/~schwern/
grepping the source is good for the soul

Index: t/test.pl
===================================================================
--- t/test.pl   (revision 18122)
+++ t/test.pl   (working copy)
@@ -291,6 +291,18 @@
     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;