ph10 2005/01/27 11:39:37 GMT
Modified files:
exim-test-orig/AutoTest runtest
Log:
Fix main test stcript to ignore directories called CVS in more places.
Revision Changes Path
1.5 +6 -5 exim/exim-test-orig/AutoTest/runtest
Index: runtest
===================================================================
RCS file: /home/cvs/exim/exim-test-orig/AutoTest/runtest,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- runtest 13 Jan 2005 11:38:10 -0000 1.4
+++ runtest 27 Jan 2005 11:39:37 -0000 1.5
@@ -1,5 +1,5 @@
#! /bin/sh
-# $Cambridge: exim/exim-test-orig/AutoTest/runtest,v 1.4 2005/01/13 11:38:10 ph10 Exp $
+# $Cambridge: exim/exim-test-orig/AutoTest/runtest,v 1.5 2005/01/27 11:39:37 ph10 Exp $
# A script to run some automatic testing of Exim. This has been needed for
# quite some time. I am finally thinking about it in February 1999.
@@ -778,7 +778,7 @@
foreach $test (@tests)
{
- next if ($test eq "." || $test eq ".." || $test < $start);
+ next if ($test eq "." || $test eq ".." || $test eq "CVS" || $test < $start);
last if ($test > $end);
REDO: # Come here when restarting the current test
@@ -1375,7 +1375,8 @@
foreach $mail (@mails)
{
- next if ($mail eq "." || $mail eq ".." || $mail eq "oncelog");
+ next if ($mail eq "." || $mail eq ".." || $mail eq "CVS" ||
+ $mail eq "oncelog");
# Some mails are put in sub-directories: this written-out test works
# for one level. If ever we need more, convert it to a proper recursive
@@ -1393,7 +1394,7 @@
foreach $submail (@submails)
{
- next if ($submail eq "." || $submail eq "..");
+ next if ($submail eq "." || $submail eq ".." || $submail eq "CVS");
$msgno++;
($munged_submail = $submail) =~
s/(\d+\.[^.]+\.)/$msgno./gx;
@@ -1444,7 +1445,7 @@
foreach $msglog (@msglogs)
{
- next if ($msglog eq "." || $msglog eq "..");
+ next if ($msglog eq "." || $msglog eq ".." || $msglog eq "CVS");
($munged_msglog = $msglog) =~
s/((?:[^\W_]{6}-){2}[^\W_]{2})
/new_value($1, "10Hm%s-0005vi-00", \$next_msgid)/egx;
