Wrote tests for Plack::Middleware::RemoveRedundantBody

diff --git a/t/remove_redundant_body.t b/t/remove_redundant_body.t
new file mode 100644 (file)
index 0000000..a43026c
--- /dev/null
+++ b/t/remove_redundant_body.t
@@ -0,0 +1,35 @@
+use FindBin;
+use lib "$FindBin::Bin/lib";
+use Catalyst::Test 'TestApp', {default_host => 'default.com'};
+use Catalyst::Request;
+
+use Test::More;
+
+{
+    my @routes = (
+        ["test_remove_body_with_304",
+         304 ],
+        ["test_remove_body_with_204",
+         204 ],
+        ["test_remove_body_with_100",
+         100 ],
+        ["test_nobody_with_100",
+         100 ]
+    );
+
+    foreach my $element (@routes ) {
+        my $route         = $element->[0];
+        my $expected_code = $element->[1];
+        my $request =
+            HTTP::Request->new( GET => "http://localhost:3000/$route" );
+        ok( my $response = request($request), "Request for $route");
+        is( $response->code,
+            $expected_code,
+            "Status code for $route is $expected_code");
+        is( $response->content,
+            '',
+            "Body for $route is not present");
+    }
+}
+
+done_testing;