use strict;
use Config;

sub runWebTest {
    my ($testSub, $handlerScript) = @_;
    
    my $perl = $Config{'perlpath'};
    $perl = $^X if $^O eq 'VMS' or -x $^X and $^X =~ m,^([a-z]:)?/,i;

    open(DAEMON, "$perl localHttpServer.pl $handlerScript |") or die "Can't exec daemon: $!";
    my $serverUrl = <DAEMON>;
    ($serverUrl) = $serverUrl =~ /<([^>]+)>/;

    sleep(2);
    $testSub->($serverUrl);
    quitWebServer($serverUrl);
}

sub quitWebServer {
    my $baseUrl = shift;

    use LWP::UserAgent;
    my $ua = new LWP::UserAgent;
    return $ua->get($baseUrl."quit");
}

1;