mirror of https://github.com/perkeep/perkeep.git
21 lines
453 B
Perl
21 lines
453 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use Test::More;
|
|
use FindBin;
|
|
use lib "$FindBin::Bin";
|
|
use CamsigdTest;
|
|
|
|
my $server = CamsigdTest::start();
|
|
|
|
ok($server, "Started the server") or BAIL_OUT("can't start the server");
|
|
|
|
my $ua = LWP::UserAgent->new;
|
|
my $req = HTTP::Request->new("GET", $server->root . "/");
|
|
my $res = $ua->request($req);
|
|
ok($res, "got an HTTP response") or done_testing();
|
|
ok($res->is_success, "HTTP response is successful");
|
|
|
|
done_testing(3);
|
|
|