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, ''; |
46fff667 |
21 | |
22 | SKIP: { |
23 | skip "content-length for body of '' is now server dependent", 1; |
24 | ok !defined $res->header('Content-Length'); |
25 | } |
bcc7361a |
26 | } |
27 | |
28 | done_testing; |
29 | |