httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestRun.pm
Date Tue, 04 Dec 2001 22:11:42 GMT
dougm       01/12/04 14:11:42

  Modified:    perl-framework/Apache-Test/lib/Apache TestRun.pm
  Log:
  support t/TEST -ping=block -run ...
  
  Revision  Changes    Path
  1.70      +3 -2      httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm
  
  Index: TestRun.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRun.pm,v
  retrieving revision 1.69
  retrieving revision 1.70
  diff -u -r1.69 -r1.70
  --- TestRun.pm	2001/11/22 03:11:38	1.69
  +++ TestRun.pm	2001/12/04 22:11:42	1.70
  @@ -621,6 +621,7 @@
       my $server = $test_config->server;
       my $pid = $server->ping;
       my $name = $server->{name};
  +    my $exit = not $self->{opts}->{'run-tests'}; #support t/TEST -ping=block -run
...
   
       if ($pid) {
           if ($pid == -1) {
  @@ -631,7 +632,7 @@
               my $version = $server->{version};
               warning "server $name running (pid=$pid, version=$version)";
           }
  -        return 1;
  +        return $exit;
       }
   
       my $opt = $self->{opts}->{ping} || '';
  @@ -657,7 +658,7 @@
           warning "no server is running on $name";
       }
   
  -    return 1; #means call exit()
  +    return $exit; #means call exit() if true
   }
   
   sub test_inc {
  
  
  

Mime
View raw message