view release on metacpan or  search on metacpan

t/01-base.t  view on Meta::CPAN

    $trap->read;
    my $req = POST "$url/login",
        [
        username => 'dave',
        password => 'beer',
        ];
    $jar->add_cookie_header($req);
    my $res = $test->request($req);
    $jar->extract_cookies($res);

    ok $res->content =~ m/LOGIN FAILED/, "login with bad credentials get catched"
}
{
    # good login

    $trap->read;
    my $req = POST "$url/login",
        [
        username => 'dave',
        password => 'supersecret',
        ];