use Apache::testold; | |
#we're testing an experimental feature that doesn't work for some folks | |
#will revisit later | |
unless (defined $ENV{USER} and $ENV{USER} eq 'dougm') { | |
print "1..1\nok 1\n"; | |
exit; | |
} | |
skip_test if WIN32; | |
my $qs = "This_is_not_a_real_error"; | |
my $content = fetch "/perl/throw_error.pl?$qs"; | |
my $i = 0; | |
print "1..2\n"; | |
print $content; | |
test ++$i, $content =~ /$qs/; | |
#make sure ErrorDocuments don't create a recursive error | |
test ++$i, $content !~ /Additionally/; | |