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