tags/v1_29/t/modules/actions.t

use Apache::testold;

my $ua = LWP::UserAgent->new;    # create a useragent to test

print "1..1\n";

my $module = "/LoadClass.pm";

my $c = fetch($ua, "http://$net::httpserver$module");

print "fetch: `$c'\n";

unless ($c =~ /^OK ${module}$/i) {
    print "not ";
}

print "ok 1\n";