You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by ra...@apache.org on 2004/04/30 07:49:19 UTC
cvs commit: modperl-2.0/t/filter out_str_subreq_default.t
randyk 2004/04/29 22:49:19
Modified: t/filter out_str_subreq_default.t
Log:
Reviewed by: stas
strip \r line endings for Win32.
Revision Changes Path
1.2 +3 -0 modperl-2.0/t/filter/out_str_subreq_default.t
Index: out_str_subreq_default.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/out_str_subreq_default.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- out_str_subreq_default.t 4 Mar 2004 15:16:10 -0000 1.1
+++ out_str_subreq_default.t 30 Apr 2004 05:49:19 -0000 1.2
@@ -4,6 +4,7 @@
use Apache::Test;
use Apache::TestRequest;
use Apache::TestUtil;
+use Apache::TestConfig ();
plan tests => 1;
@@ -16,6 +17,8 @@
my $expected = join '', $content1, $subrequest, $content2, $filter;
my $received = GET_BODY $location;
+# Win32 fix for line endings
+$received =~ s{\r}{}g if Apache::TestConfig::WIN32;
ok t_cmp($expected, $received,
"testing filter-originated lookup_uri() call to core served URI");