[exim-cvs] cvs commit: exim/exim-test runtest

Startseite
Nachricht löschen
Nachricht beantworten
Autor: Philip Hazel
Datum:  
To: exim-cvs
Betreff: [exim-cvs] cvs commit: exim/exim-test runtest
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