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 a6a94cb..939a02d 100644 (file)
--- a/t/win32/system.t
+++ b/t/win32/system.t
@@ -151,7 +151,7 @@ while (<$T>) {
            note "want: $expect";
            note "got : $_";
        }
-       ok($expect eq $_);
+       ok($expect eq $_, $comment // '');
     }
 }
 close $T;