Adding todo tests

Message-ID: <20010218014850.C19957@magnonel.guild.net>

p4raw-id: //depot/perl@8824

1 files changed, 14 insertions, 3 deletions

diff --git a/t/TEST b/t/TEST
index cf402bda37..acefb54a19 100755
--- a/t/TEST
+++ b/t/TEST
@@ -119,9 +119,20 @@ EOT
 		    $ok = 1;
 		}
 		else {
-		    $next = $1, $ok = 0, last if /^not ok ([0-9]*)/;
-		    if (/^ok (\d+)(\s*#.*)?/ && $1 == $next) {
-			$next = $next + 1;
+		    if (/^(not )?ok (\d+)(\s*#.*)?/ &&
+			$2 == $next) 
+		    {
+			my($not, $num, $extra) = ($1, $2, $3);
+			my($istodo) = $extra =~ /^\s*#\s*TODO/ if $extra;
+
+			if( $not && !$istodo ) {
+			    $ok = 0;
+			    $next = $num;
+			    last;
+			}
+			else {
+			    $next = $next + 1;
+			}
                     }
                     elsif (/^Bail out!\s*(.*)/i) { # magic words
                         die "FAILED--Further testing stopped" . ($1 ? ": $1\n" : ".\n");