[Apache-dispatch-devel] SF.net SVN: apache-dispatch: [37] trunk/t
Brought to you by:
geoffrey_young,
phred_moyer
|
From: <phr...@us...> - 2006-06-06 06:30:08
|
Revision: 37 Author: phred_moyer Date: 2006-06-05 23:30:00 -0700 (Mon, 05 Jun 2006) ViewCVS: http://svn.sourceforge.net/apache-dispatch/?rev=37&view=rev Log Message: ----------- Test for filtering on mod_perl 1. Modified Paths: -------------- trunk/t/03filter.t Added Paths: ----------- trunk/eg/Foo/Filter.pm Added: trunk/eg/Foo/Filter.pm =================================================================== --- trunk/eg/Foo/Filter.pm (rev 0) +++ trunk/eg/Foo/Filter.pm 2006-06-06 06:30:00 UTC (rev 37) @@ -0,0 +1,26 @@ +package Apache::Foo::Filter; + +use strict; +use warnings FATAL => 'all'; + +sub handler { + my $r = shift; + + $r->log->debug("Filtering response"); + $r->send_http_header(); + + $r = $r->filter_register; + + my $fh = $r->filter_input; + + while (<$fh>) { + $r->log->debug("Filtering data $_"); + # remove the underscores + s/_//g; + $r->log->debug("Filtered data $_"); + + print; + } +} + +1; \ No newline at end of file Modified: trunk/t/03filter.t =================================================================== --- trunk/t/03filter.t 2006-06-06 06:28:49 UTC (rev 36) +++ trunk/t/03filter.t 2006-06-06 06:30:00 UTC (rev 37) @@ -1,14 +1,24 @@ use strict; use warnings FATAL => 'all'; -use Apache::Test; +use Apache::Test qw(-withtestmore); use Apache::TestRequest; -plan tests => 1, \&have_lwp; +# figure out what version we have - I don't like this method but it works +my $httpd = Apache::Test::vars('httpd'); +my $version = `$httpd -v`; -my $url = '/filtered/Bar/good'; +if ($version =~ m/Apache\/2/) { + plan skip_all => "Filter test irrelevant on mod_perl2"; +} +else { + plan tests => 2, \&have_lwp; +} +my $url = '/filtered/foo'; + eval { require Apache::Filter }; -ok GET_OK $url; - +my $res = GET $url; +ok($res->is_success); +ok($res->content =~ m/dispatchfoo/i); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |