diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-01-06 08:18:44 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-01-06 08:18:44 +0000 |
| commit | 3444c34c7da9f235e181b5c175a1fa1357e7a055 (patch) | |
| tree | eb930a0faece16c170fc98e06767eceebc31c57d /t/op/write.t | |
| parent | cfcd312abd5f0026fde0adbcfd69a03581f5f713 (diff) | |
| download | perl-3444c34c7da9f235e181b5c175a1fa1357e7a055.tar.gz | |
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
Diffstat (limited to 't/op/write.t')
| -rwxr-xr-x | t/op/write.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/op/write.t b/t/op/write.t index 1b7fc0476f..ad596a64b4 100755 --- 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"; |