github.com/slspeek/camlistore_namedsearch@v0.0.0-20140519202248-ed6f70f7721a/server/sigserver/test/00-start.t (about)

     1  #!/usr/bin/perl
     2  
     3  use strict;
     4  use Test::More;
     5  use FindBin;
     6  use lib "$FindBin::Bin";
     7  use CamsigdTest;
     8  
     9  my $server = CamsigdTest::start();
    10  
    11  ok($server, "Started the server") or BAIL_OUT("can't start the server");
    12  
    13  my $ua = LWP::UserAgent->new;
    14  my $req = HTTP::Request->new("GET", $server->root . "/");
    15  my $res = $ua->request($req);
    16  ok($res, "got an HTTP response") or done_testing();
    17  ok($res->is_success, "HTTP response is successful");
    18  
    19  done_testing(3);
    20