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