You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by do...@hyperreal.org on 1999/08/03 23:34:57 UTC

cvs commit: modperl/t TEST

dougm       99/08/03 14:34:55

  Modified:    t        TEST
  Log:
  sleep a bit longer if server is slow starting
  add note to examine error_log
  
  Revision  Changes    Path
  1.10      +2 -2      modperl/t/TEST
  
  Index: TEST
  ===================================================================
  RCS file: /home/cvs/modperl/t/TEST,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -r1.9 -r1.10
  --- TEST	1999/01/28 18:25:08	1.9
  +++ TEST	1999/08/03 21:34:45	1.10
  @@ -80,7 +80,7 @@
           print "still waiting for server to warm up...";
       }
       for (1..3) {
  -        sleep 1;
  +        sleep $_;
           if (simple_fetch "/test.html") {
               print "ok\n";
           }
  @@ -92,7 +92,7 @@
   
   unless (simple_fetch "/test.html") {
       print "not ok\n"; 
  -    die "server failed to start!";
  +    die "server failed to start! (please examine t/logs/error_log)";
   }
   
   runtests @tests;