view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

    is scalar (my @f = $res->content =~ /<format\s+name=["'](json|yaml)/gm), 
       2, 'default formats';
    
    $res = $cb->(GET "?id=123");
    like $res->content, qr{<formats\s+id=["']123["']>}m, "no format";
    is $res->code, 300, 'HTTP 300';

    $res = $cb->(GET "?id=0&format=yaml");
    is $res->content, "---\nhello: world\n", 'content';
    is $res->code, 200, 'HTTP 200';
    is $res->header('content-type'), 'text/yaml', 'YAML';

    $res = $cb->(GET "?id=abc&format=yaml");
    is $res->code, 404, 'HTTP 404';
};

done_testing;

t/formats.t  view on Meta::CPAN

test_psgi $app, sub {
    my $cb  = shift;

    my $res = $cb->(GET "/");
    is_deeply [ my @f = $res->content =~ /<format\s+name=["']([^"']+)/gm ], 
              ['plain'], 'custom format';

    $res = $cb->(GET "?id=42&format=plain");
    is $res->code, 200, '200 Ok';
    is $res->content, "answer=42", 'content';
    is $res->header('content-type'), 'text/plain', 'type';

    $res = $cb->(GET "?id=23&format=plain");
    is $res->code, 200, '200 Ok'; # FIXME? Item was rejected!
    is $res->content, '';

    $res = $cb->(GET "?id=-23&format=plain");
    is $res->code, 400, '400 Bad Request';
    is $res->content, 'id must be positive';
};