Commit | Line | Data |
---|---|---|
bcc7361a | 1 | use strict; |
2 | use warnings; | |
3 | ||
4 | use FindBin; | |
5 | use lib "$FindBin::Bin/../lib"; | |
6 | ||
7 | use Test::More; | |
8 | use Catalyst::Test 'TestApp'; | |
9 | ||
10 | # body '0' | |
11 | { | |
12 | my $res = request('/zerobody'); | |
13 | is $res->content, '0'; | |
14 | is $res->header('Content-Length'), '1'; | |
15 | } | |
16 | ||
17 | # body '' | |
18 | { | |
19 | my $res = request('/emptybody'); | |
20 | is $res->content, ''; | |
ac057d3b | 21 | ok !defined $res->header('Content-Length'); |
bcc7361a | 22 | } |
23 | ||
24 | done_testing; | |
25 |