> - $file ||= 'SKIP'; > + $file ||= catfile Apache::Test::vars('serverroot'), 'SKIP';
oops. forgot to add the class up top. guess I'm not quite with it today yet :) --Geoff
Index: lib/Apache/TestHarness.pm =================================================================== RCS file: /home/cvspublic/httpd-test/perl-framework/Apache-Test/lib/Apache/TestHarness.pm,v retrieving revision 1.13 diff -u -r1.13 TestHarness.pm --- lib/Apache/TestHarness.pm 31 Jan 2004 01:12:17 -0000 1.13 +++ lib/Apache/TestHarness.pm 23 Feb 2004 17:51:28 -0000 @@ -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,7 @@ #skip tests listed in t/SKIP sub skip { my($self, $file) = @_; - $file ||= 'SKIP'; + $file ||= catfile Apache::Test::vars('serverroot'), 'SKIP'; return unless -e $file;