#!perl -w
use strict;
use Test::More tests => 3;
use Test::Group;
ok(1 == 1, "normal Test::More test");
test "hammering the server" => sub {
ok(I_can_connect());
for(1..1000) {
ok(I_can_make_a_request());
}
}; # Don't forget the semicolon here!
test "TODO: not quite done yet" => sub {
fail;
};
sub I_can_connect { 1 }
sub I_can_make_a_request { 1 }