my $INCWARN = qq{Can't open "$INCFILE" ($!)};
plp_is('warnings', split /\n\n/, <<TEST, 2);
my $INCWARN = qq{Can't open "$INCFILE" ($!)};
plp_is('warnings', split /\n\n/, <<TEST, 2);
chmod 0244, $testfile or skip("changed permissions", 1);
plp_is('permission denied', undef, <<TEST);
Content-Type: text/html
chmod 0244, $testfile or skip("changed permissions", 1);
plp_is('permission denied', undef, <<TEST);
Content-Type: text/html
$ENV{PATH_TRANSLATED} = "$base/missinginclude/test/123";
plp_is('not found', undef, <<TEST);
Content-Type: text/html
$ENV{PATH_TRANSLATED} = "$base/missinginclude/test/123";
plp_is('not found', undef, <<TEST);
Content-Type: text/html