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);
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;
{
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;