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; } }