[Apache-dispatch-devel] SF.net SVN: apache-dispatch: [37] trunk/t

[<phr...@us...>]

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.