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