Convert op/read.t to use test.pl and make it stricture compliant.
[p5sagit/p5-mst-13.2.git] / t / test.pl
index e2edccb..36a12c3 100644 (file)
--- 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;