1 files changed, 19 insertions, 0 deletions
diff --git a/debian/perl-framework/t/filter/input_body.t b/debian/perl-framework/t/filter/input_body.t
new file mode 100644
index 0000000..a26ee06
--- /dev/null
+++ b/debian/perl-framework/t/filter/input_body.t
@@ -0,0 +1,19 @@
+use strict;
+use warnings FATAL => 'all';
+
+use Apache::Test;
+use Apache::TestRequest;
+use Apache::TestUtil;
+
+plan tests => 2, [qw(input_body_filter)];
+
+my $location = '/input_body_filter';
+
+for my $x (1,2) {
+    my $expected = "ok $x";
+    my $data = scalar reverse $expected;
+    my $response = POST_BODY $location, content => $data;
+    ok t_cmp($response,
+             $expected,
+             "Posted \"$data\"");
+}