2 use lib "$FindBin::Bin/lib";
3 use Catalyst::Test 'TestApp', {default_host => 'default.com'};
10 ["test_remove_body_with_304",
12 ["test_remove_body_with_204",
14 ["test_remove_body_with_100",
16 ["test_nobody_with_100",
20 foreach my $element (@routes ) {
21 my $route = $element->[0];
22 my $expected_code = $element->[1];
24 HTTP::Request->new( GET => "http://localhost:3000/$route" );
25 ok( my $response = request($request), "Request for $route");
28 "Status code for $route is $expected_code");
29 is( $response->content,
31 "Body for $route is not present");