The TODO tag should be included also when a TODO test succeeds,

so it's reported by the test harness

p4raw-id: //depot/perl@22076

diff --git a/t/op/write.t b/t/op/write.t
index 1b7fc04..ad596a6 100755 (executable)
--- a/t/op/write.t
+++ b/t/op/write.t
@@ -348,7 +348,7 @@ $= = 10;
     write;
     $test++;
     print $- == 9
-       ? "ok $test\n" : "not ok $test # TODO \$- = $- instead of 9\n";
+       ? "ok $test # TODO\n" : "not ok $test # TODO \$- = $- instead of 9\n";
     $test++;
     print $^ ne "Comment_TOP"
        ? "ok $test\n" : "not ok $test\n# \$^ = $^ instead of 'STDOUT_TOP'\n";