use Apache::testold; | |
skip_test unless fetch("/perl/have_module.pl?mod_include.c"); | |
my $ua = LWP::UserAgent->new; # create a useragent to test | |
my $plan = fetch($ua, "http://$net::httpserver/rgy-include.shtml"); | |
# make sure that planning header is correct | |
# under DSO #perl directive is not available in mod_include | |
if ($plan =~ /^1/) { | |
print $plan; | |
} | |
else { | |
skip_test; | |
} | |
my $c = fetch($ua, "http://$net::httpserver/content.shtml"); | |
unless ($c eq "OK") { | |
print "not "; | |
} | |
print "ok 3\n"; | |