Check for a ridiculously long filename in exim_dbmbuild.

[users/heiko/exim.git] / test / runtest

diff --git a/test/runtest b/test/runtest
index d24f4bba293e34f1f5e48fa5c470eace242b9b21..aee2697adcff1b0421d795fcfedf4dbc89c60ad2 100755 (executable)
--- a/test/runtest
+++ b/test/runtest
@@ -1,6 +1,6 @@
 #! /usr/bin/perl -w
 
 #! /usr/bin/perl -w
 

-# $Cambridge: exim/test/runtest,v 1.15 2006/10/31 11:37:47 ph10 Exp $
+# $Cambridge: exim/test/runtest,v 1.19 2006/11/14 16:40:36 ph10 Exp $

 
 ###############################################################################
 # This is the controlling script for the "new" test suite for Exim. It should #
 
 ###############################################################################
 # This is the controlling script for the "new" test suite for Exim. It should #


@@ -1392,7 +1392,7 @@ if (/^exim_lock\s+(.*)$/)
   # This gives the process time to get started; otherwise the next
   # process may not find it there when it expects it.
 
   # This gives the process time to get started; otherwise the next
   # process may not find it there when it expects it.
 

-  select(undef, undef, undef, 0.01);
+  select(undef, undef, undef, 0.1);

   return 3;
   }
 
   return 3;
   }
 


@@ -1514,7 +1514,7 @@ if (/^server\s+(.*)$/)
   # This gives the server time to get started; otherwise the next
   # process may not find it there when it expects it.
 
   # This gives the server time to get started; otherwise the next
   # process may not find it there when it expects it.
 

-  select(undef, undef, undef, 0.01);
+  select(undef, undef, undef, 0.5);

   return 3;
   }
 
   return 3;
   }
 


@@ -2044,7 +2044,6 @@ if (defined $parm_support{'Content_Scanning'})
   {
   if (system("spamc -h 2>/dev/null >/dev/null") == 0)
     {
   {
   if (system("spamc -h 2>/dev/null >/dev/null") == 0)
     {

-    $parm_running{'SpamAssassin'} = ' ';

     print "The spamc command works:\n";
 
     # This test for an active SpamAssassin is courtesy of John Jetmore.
     print "The spamc command works:\n";
 
     # This test for an active SpamAssassin is courtesy of John Jetmore.


@@ -2206,7 +2205,7 @@ if (defined $parm_support{'Content_Scanning'})
 
         if($@)
           {
 
         if($@)
           {

-          warn $@;
+          print "  $@";

           print "  Assume ClamAV is not running\n";
           }
         else
           print "  Assume ClamAV is not running\n";
           }
         else