#
# Test for two bugs:
#
# mod_speedycgi mixes up the speedy options on the #! line in the script
#
# mod_speedycgi can't switch tempbase between scripts because it holds open
# the tempfile.


use lib 't';
use ModTest;

my $scr = 'speedy/env';

ModTest::test_init(5, [$scr], '
    SpeedyPerlArgs	"-w"
');

print "1..1\n";

$txt = &ModTest::html_get("/$scr");
if ($txt =~ /warn=1/) {
    print "ok\n";
} else {
    print "failed\n";
}