diff options
Diffstat (limited to 't/response-compatible.t')
-rw-r--r-- | t/response-compatible.t | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/t/response-compatible.t b/t/response-compatible.t index 9fa8e54..daf2c54 100644 --- a/t/response-compatible.t +++ b/t/response-compatible.t @@ -9,7 +9,7 @@ use Web::Response; my $res = Web::Response->new; $res->status(200); $res->header("Foo:Bar" => "baz"); - $res->body("Hello"); + $res->content("Hello"); is_deeply $res->finalize, [ 200, [ 'Foo:Bar' => 'baz' ], ["Hello"] ]; } @@ -19,7 +19,7 @@ use Web::Response; $res->status(200); $res->header("Foo\000Bar" => "baz"); $res->header("Qux\177Quux" => "42"); - $res->body("Hello"); + $res->content("Hello"); is_deeply $res->finalize, [ 200, [ "Foo\000Bar" => 'baz', "Qux\177Quux" => '42' ], ["Hello"] ]; } @@ -29,7 +29,7 @@ use Web::Response; $res->status(200); $res->header("X-LWS-I" => "Bar\r\n true"); $res->header("X-LWS-II" => "Bar\r\n\t\ttrue"); - $res->body("Hello"); + $res->content("Hello"); is_deeply $res->finalize, [ @@ -43,7 +43,7 @@ use Web::Response; my $res = Web::Response->new; $res->status(200); $res->header("X-CR-LF" => "Foo\nBar\rBaz"); - $res->body("Hello"); + $res->content("Hello"); is_deeply $res->finalize, [ 200, [ 'X-CR-LF' => 'FooBarBaz' ], ["Hello"] ]; } @@ -52,7 +52,7 @@ use Web::Response; my $res = Web::Response->new; $res->status(200); $res->header("X-CR-LF" => "Foo\nBar\rBaz"); - $res->body("Hello"); + $res->content("Hello"); is_deeply $res->finalize, [ 200, [ 'X-CR-LF' => 'FooBarBaz' ], ["Hello"] ]; } |