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");