first cut at :ChildOf

[catagits/Catalyst-Runtime.git] / t / live_engine_response_large.t

#!perl\r
\r
use strict;\r
use warnings;\r
\r
use FindBin;\r
use lib "$FindBin::Bin/lib";\r
\r
use Test::More tests => 6;\r
use Catalyst::Test 'TestApp';\r
\r
# phaylon noticed that refactored was truncating output on large images.\r
# This test tests 100K and 1M output content.\r
\r
my $expected = {\r
    one => 'x' x (100 * 1024),\r
    two => 'y' x (1024 * 1024),\r
};\r
\r
for my $action ( keys %{$expected} ) {\r
    ok( my $response = request('http://localhost/engine/response/large/' . $action ),\r
        'Request' );\r
    ok( $response->is_success, 'Response Successful 2xx' );\r
    \r
    is( length( $response->content ), length( $expected->{$action} ), 'Length OK' );\r
}\r
\r