diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/ChangeLog | 5 | ||||
| -rw-r--r-- | tests/test_driver.pl | 5 |
2 files changed, 8 insertions, 2 deletions
diff --git a/tests/ChangeLog b/tests/ChangeLog index 231c486..fe8b25c 100644 --- a/tests/ChangeLog +++ b/tests/ChangeLog @@ -17,6 +17,11 @@ * scripts/targets/SECONDARY: Ditto. * scripts/targets/INTERMEDIATE: Ditto. +2000-01-27 Paul D. Smith <psmith@gnu.org> + + * test_driver.pl (toplevel): Don't try to run test scripts which + are really directories. + 2000-01-23 Paul D. Smith <psmith@gnu.org> * scripts/features/include: Remove a check; the fix caused more diff --git a/tests/test_driver.pl b/tests/test_driver.pl index 4fb738b..18dcc4b 100644 --- a/tests/test_driver.pl +++ b/tests/test_driver.pl @@ -117,7 +117,8 @@ sub toplevel closedir (SCRIPTDIR); foreach $dir (@dirs) { - next if ! -d "$scriptpath/$dir" || $dir =~ /^\.\.?$/ || $dir eq 'CVS'; + next if ($dir =~ /^\.\.?$/ || $dir eq 'CVS' || $dir eq 'RCS' + || ! -d "$scriptpath/$dir"); push (@rmdirs, $dir); mkdir ("$workpath/$dir", 0777) || &error ("Couldn't mkdir $workpath/$dir: $!\n"); @@ -127,7 +128,7 @@ sub toplevel closedir (SCRIPTDIR); foreach $test (@files) { - next if $test =~ /^\.\.?$/ || $test =~ /~$/ || $test eq 'CVS'; + next if $test =~ /~$/ || -d $test; push (@TESTS, "$dir/$test"); } } |