diff options
Diffstat (limited to 'runtest.pl.in')
-rwxr-xr-x | runtest.pl.in | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/runtest.pl.in b/runtest.pl.in index 7d197d4c..2d6c955f 100755 --- a/runtest.pl.in +++ b/runtest.pl.in @@ -141,15 +141,26 @@ sub runtest or die "$test_src_dir/testextra: $!"; foreach my $line (<EXTRA>) { + chomp $line; if ($line =~ m/^mkdir (.*)/) { mkdir("$test_dst_dir/$1") or die "$test_dst_dir/$1: $!"; } + elsif ($line =~ m/^rm -rf (.*)/) + { + if(-d "$test_dst_dir\\$1") + { + my $cmd = "rmdir /s/q $test_dst_dir\\$1"; + my $status = system($cmd); + $status == 0 or die "$cmd: failed with ". + "status $status"; + } + } else { die "Unsupported command in ". - "$test_src_dir/testextra: $!"; + "$test_src_dir/testextra: $line"; } } } |