svn commit: r122883 - /httpd/test/trunk/perl-framework/Apache-Test/Apache-TestItSelf/t/httpd_arg.t

[stas]

Author: stas
Date: Mon Dec 20 13:47:29 2004
New Revision: 122883

URL: http://svn.apache.org/viewcvs?view=rev&rev=122883
Log:
use a proper skip block

Modified:
   httpd/test/trunk/perl-framework/Apache-Test/Apache-TestItSelf/t/httpd_arg.t

Modified: 
httpd/test/trunk/perl-framework/Apache-Test/Apache-TestItSelf/t/httpd_arg.t
Url: 
http://svn.apache.org/viewcvs/httpd/test/trunk/perl-framework/Apache-Test/Apache-TestItSelf/t/httpd_arg.t?view=diff&rev=122883&p1=httpd/test/trunk/perl-framework/Apache-Test/Apache-TestItSelf/t/httpd_arg.t&r1=122882&p2=httpd/test/trunk/perl-framework/Apache-Test/Apache-TestItSelf/t/httpd_arg.t&r2=122883
==============================================================================
--- httpd/test/trunk/perl-framework/Apache-Test/Apache-TestItSelf/t/httpd_arg.t 
(original)
+++ httpd/test/trunk/perl-framework/Apache-Test/Apache-TestItSelf/t/httpd_arg.t 
Mon Dec 20 13:47:29 2004
@@ -104,13 +104,12 @@
     unlike $err, qr/\[  error\]/, $cmd;
 
     # test that httpd is found in t/REPORT (if exists)
-    $cmd = "t/REPORT";
-    if (-e $cmd) {
+    SKIP: {
+        $cmd = "t/REPORT";
+        skip "$cmd doesn't exist", 1 unless -e $cmd;
+
         ($out, $err) = myrun3($cmd);
         like $out, qr/Server version: $c->{httpd_version}/, $cmd;
-    }
-    else {
-        ok 1;
     }
 }