ph10 2006/04/20 16:34:25 BST
Modified files:
exim-test runtest
Log:
Skip CVS directory when scanning numbered script directories in test
suite runtest script.
Revision Changes Path
1.8 +14 -1 exim/exim-test/runtest
Index: runtest
===================================================================
RCS file: /home/cvs/exim/exim-test/runtest,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- runtest 20 Apr 2006 14:11:29 -0000 1.7
+++ runtest 20 Apr 2006 15:34:25 -0000 1.8
@@ -1,6 +1,6 @@
#! /usr/bin/perl -w
-# $Cambridge: exim/exim-test/runtest,v 1.7 2006/04/20 14:11:29 ph10 Exp $
+# $Cambridge: exim/exim-test/runtest,v 1.8 2006/04/20 15:34:25 ph10 Exp $
###############################################################################
# This is the controlling script for the "new" test suite for Exim. It should #
@@ -2558,12 +2558,25 @@
@test_dirs = sort readdir(DIR);
closedir(DIR);
+# Remove . and .. and CVS from the list.
+
+for ($i = 0; $i < @test_dirs; $i++)
+ {
+ my($d) = $test_dirs[$i];
+ if ($d eq "." || $d eq ".." || $d eq "CVS")
+ {
+ splice @test_dirs, $i, 1;
+ $i--;
+ }
+ }
+
+# Scan for relevant tests
+
for ($i = 0; $i < @test_dirs; $i++)
{
my($testdir) = $test_dirs[$i];
my($wantthis) = 1;
- next if $testdir eq "." || $testdir eq "..";
print ">>Checking $testdir\n" if $debug;
# Skip this directory if the first test is equal or greater than the first