view release on metacpan or  search on metacpan

t/basic.t  view on Meta::CPAN

97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
        $expected->{data}[0]{values} = [{ bar => 42 }];
        $expected->{data}[1]{url}    = "http://example.com";
    }
    cmp_deeply($got, $expected, "data inlined into spec");
}
 
{
    my ($res, $c) = ctx_request('/error/bad-name');
    ok($res, '/error/bad-name');
    is($res->code, 500, "status is 500")
        or die $res->decoded_content;
    like($c->error->[-1], qr/cannot find a dataset named «DNE»/, "error message matches");
}
 
done_testing;