You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by ge...@apache.org on 2004/02/23 20:59:08 UTC
cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestHarness.pm
geoff 2004/02/23 11:59:08
Modified: perl-framework/Apache-Test/lib/Apache TestHarness.pm
Log:
make sure we can find t/SKIP
kudos to Ken Coar for the spot and patch
Revision Changes Path
1.14 +3 -1 httpd-test/perl-framework/Apache-Test/lib/Apache/TestHarness.pm
Index: TestHarness.pm
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestHarness.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- TestHarness.pm 31 Jan 2004 01:12:17 -0000 1.13
+++ TestHarness.pm 23 Feb 2004 19:59:08 -0000 1.14
@@ -4,6 +4,7 @@
use warnings FATAL => 'all';
use Test::Harness ();
+use Apache::Test ();
use Apache::TestSort ();
use Apache::TestTrace;
use File::Spec::Functions qw(catfile catdir);
@@ -23,7 +24,8 @@
#skip tests listed in t/SKIP
sub skip {
my($self, $file) = @_;
- $file ||= 'SKIP';
+ $file ||= catfile Apache::Test::vars('serverroot'), 'SKIP';
+ error "*** file is :$file:";
return unless -e $file;