1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
use FindBin;
use lib "$FindBin::Bin/lib";
use Catalyst::Test 'TestApp', {default_host => 'default.com'};
use Catalyst::Request;
use Test::More;
{
my @routes = (
["test_remove_body_with_304",
304 ],
["test_remove_body_with_204",
204 ],
["test_remove_body_with_100",
100 ],
["test_nobody_with_100",
100 ]
);
foreach my $element (@routes ) {
my $route = $element->[0];
my $expected_code = $element->[1];
my $request =
HTTP::Request->new( GET => "http://localhost:3000/$route" );
ok( my $response = request($request), "Request for $route");
is( $response->code,
$expected_code,
"Status code for $route is $expected_code");
is( $response->content,
'',
"Body for $route is not present");
}
}
done_testing;
|
