diff options
| author | Paul Smith <psmith@gnu.org> | 2006-02-10 05:29:00 +0000 |
|---|---|---|
| committer | Paul Smith <psmith@gnu.org> | 2006-02-10 05:29:00 +0000 |
| commit | 5a7a42cfce638f52f702b4d317c45c7186b8c0b4 (patch) | |
| tree | f212e35eac087bedeb88d64d96fb5a4c8c25d08c /tests/test_driver.pl | |
| parent | d0c4e92f1145110793ffb04596019a864c88d2fc (diff) | |
| download | gunmake-5a7a42cfce638f52f702b4d317c45c7186b8c0b4.tar.gz | |
- New code capability: a read-only string cache. Start of solution for
Savannah bug #15182, but not much uses it yet. Coming shortly.
- Added short-circuiting $(and ..) and $(or ...) functions.
Diffstat (limited to 'tests/test_driver.pl')
| -rw-r--r-- | tests/test_driver.pl | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/tests/test_driver.pl b/tests/test_driver.pl index 4b4e72b..631fa1a 100644 --- a/tests/test_driver.pl +++ b/tests/test_driver.pl @@ -148,22 +148,21 @@ sub toplevel print "Finding tests...\n"; opendir (SCRIPTDIR, $scriptpath) || &error ("Couldn't opendir $scriptpath: $!\n"); - @dirs = grep (!/^(\.\.?|CVS|RCS)$/, readdir (SCRIPTDIR) ); + @dirs = grep (!/^(\..*|CVS|RCS)$/, readdir (SCRIPTDIR) ); closedir (SCRIPTDIR); foreach $dir (@dirs) { - next if ($dir =~ /^\.\.?$/ || $dir eq 'CVS' || $dir eq 'RCS' - || ! -d "$scriptpath/$dir"); + next if ($dir =~ /^(\..*|CVS|RCS)$/ || ! -d "$scriptpath/$dir"); push (@rmdirs, $dir); mkdir ("$workpath/$dir", 0777) || &error ("Couldn't mkdir $workpath/$dir: $!\n"); opendir (SCRIPTDIR, "$scriptpath/$dir") || &error ("Couldn't opendir $scriptpath/$dir: $!\n"); - @files = grep (!/^(\.\.?|CVS|RCS)$/, readdir (SCRIPTDIR) ); + @files = grep (!/^(\..*|CVS|RCS|.*~)$/, readdir (SCRIPTDIR) ); closedir (SCRIPTDIR); foreach $test (@files) { - next if $test =~ /~$/ || -d $test; + -d $test and next; push (@TESTS, "$dir/$test"); } } |