1 files changed, 48 insertions, 0 deletions
diff --git a/debian/perl-framework/t/modules/sed.t b/debian/perl-framework/t/modules/sed.t
new file mode 100644
index 0000000..6ab1ee1
--- /dev/null
+++ b/debian/perl-framework/t/modules/sed.t
@@ -0,0 +1,48 @@
+use strict;
+use warnings FATAL => 'all';
+
+use Apache::Test;
+use Apache::TestRequest;
+use Apache::TestUtil;
+
+my @ts = (
+   # see t/conf/extra.conf.in
+   { url => "/apache/sed/out-foo/foobar.html", content => 'barbar', msg => "sed output filter", code => '200' },
+   # error after status sent
+   { url => "/apache/sed-echo/out-foo-grow/foobar.html", content => "", msg => "sed output filter too large", code => '200', body=>"foo" x (8192*1024), resplen=>0},
+   { url => "/apache/sed-echo/input", content => 'barbar', msg => "sed input filter", code => '200', body=>"foobar" },
+   { url => "/apache/sed-echo/input", content => undef, msg => "sed input filter", code => '200', body=>"foo" x (1024)},
+   # fixme: returns 400 default error doc for some people instead
+   # { url => "/apache/sed-echo/input", content => '!!!ERROR!!!', msg => "sed input filter", code => '200', skippable=>true body=>"foo" x (1024*4096)}
+);
+
+my $tests = 2*scalar @ts;
+
+plan tests => $tests, need 'LWP::Protocol::AnyEvent::http', need_module('sed');
+
+# Hack to allow streaming of data in/out of mod_echo
+require LWP::Protocol::AnyEvent::http;
+
+for my $t (@ts) {
+  my $req;
+  if (defined($t->{'body'})) { 
+    t_debug "posting body of size  ". length($t->{'body'});
+    $req = POST  $t->{'url'}, content => $t->{'body'};
+    t_debug "... posted body of size  ". length($t->{'body'});
+  }
+  else { 
+    $req = GET $t->{'url'};
+  }
+  t_debug "Content Length " . length $req->content;
+  ok t_cmp($req->code, $t->{'code'}, "status code for " . $t->{'url'});
+  if (defined($t->{content})) { 
+    my $content = $req->content;
+    chomp($content);
+    ok t_cmp($content, $t->{content}, $t->{msg});
+  }
+  else { 
+    ok "no body check";
+  }
+}
+
+