t/op/caller.t: add a TODO test for RT #129239

[perl5.git] / t / win32 / system.t

diff --git a/t/win32/system.t b/t/win32/system.t
index b81c7ab..939a02d 100644 (file)
--- a/t/win32/system.t
+++ b/t/win32/system.t
@@ -134,8 +134,8 @@ my $expect;
 my $comment = "";
 while (<$T>) {
     chomp;
-    if (/^1\.\./) {
-       print "$_\n";
+    if (s/^1\.\.//) {
+       plan $_;
     }
     elsif (/^#+\s(.*)$/) {
        $comment = $1;
@@ -150,8 +150,8 @@ while (<$T>) {
            note $comment if $comment;
            note "want: $expect";
            note "got : $_";
-    }
-    ok($expect eq $_);
+       }
+       ok($expect eq $_, $comment // '');
     }
 }
 close $T;