From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 6 Jan 2004 08:18:44 +0000 (+0000)
Subject: The TODO tag should be included also when a TODO test succeeds,
X-Git-Tag: accepted/trunk/20130322.191538~22498
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=3444c34c7da9f235e181b5c175a1fa1357e7a055;p=platform%2Fupstream%2Fperl.git

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
--- 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";