Harumph, also AIX will spill its guts (i.e. dump core)

[p5sagit/p5-mst-13.2.git] / t / TEST

diff --git a/t/TEST b/t/TEST
index 3b4ce62..9dd34f3 100755 (executable)
--- a/t/TEST
+++ b/t/TEST
@@ -54,7 +54,7 @@ my $updir  = File::Spec->updir;
 sub _find_tests {
     my($dir) = @_;
     opendir DIR, $dir || die "Trouble opening $dir: $!";
-    foreach my $f (readdir DIR) {
+    foreach my $f (sort { $a cmp $b } readdir DIR) {
         next if $f eq $curdir or $f eq $updir;
 
         my $fullpath = File::Spec->catdir($dir, $f);
@@ -192,8 +192,9 @@ EOT
                print $_;
            }
            unless (/^#/) {
-               if (/^1\.\.([0-9]+)/) {
+               if (/^1\.\.([0-9]+)( todo ([\d ]+))?/) {
                    $max = $1;
+                    %todo = map { $_ => 1 } split / /, $3 if $3;
                    $totmax += $max;
                    $files += 1;
                    $next = 1;
@@ -205,6 +206,7 @@ EOT
                    {
                        my($not, $num, $extra) = ($1, $2, $3);
                        my($istodo) = $extra =~ /^\s*#\s*TODO/ if $extra;
+                        $istodo = 1 if $todo{$num};
 
                        if( $not && !$istodo ) {
                            $ok = 0;