Merged 5.49_01 (r1339) from refactored branch to trunk

[catagits/Catalyst-Runtime.git] / t / live / engine / response / large.t

diff --git a/t/live/engine/response/large.t b/t/live/engine/response/large.t
new file mode 100644 (file)
index 0000000..17a7cbe
--- /dev/null
+++ b/t/live/engine/response/large.t
@@ -0,0 +1,27 @@
+#!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