svn commit: r156619 - in perl/modperl/branches/apache2-rename-unstable/t/filter: both_str_req_mix.t out_str_req_mix.t

[randyk]

Author: randyk
Date: Tue Mar  8 21:47:04 2005
New Revision: 156619

URL: http://svn.apache.org/viewcvs?view=rev&rev=156619
Log:
remove line endings from response.

Modified:
    perl/modperl/branches/apache2-rename-unstable/t/filter/both_str_req_mix.t
    perl/modperl/branches/apache2-rename-unstable/t/filter/out_str_req_mix.t

Modified: 
perl/modperl/branches/apache2-rename-unstable/t/filter/both_str_req_mix.t
URL: 
http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/filter/both_str_req_mix.t?view=diff&r1=156618&r2=156619
==============================================================================
--- perl/modperl/branches/apache2-rename-unstable/t/filter/both_str_req_mix.t 
(original)
+++ perl/modperl/branches/apache2-rename-unstable/t/filter/both_str_req_mix.t 
Tue Mar  8 21:47:04 2005
@@ -28,7 +28,7 @@
 #t_debug($response_clear);
 
 my $expected = $response_orig;
-my $received = $response_clear;
+(my $received = $response_clear) =~ s{\r?\n$}{};
 
 ok t_cmp($received, $expected,
     "mixing httpd and mod_perl filters, while preserving order");

Modified: 
perl/modperl/branches/apache2-rename-unstable/t/filter/out_str_req_mix.t
URL: 
http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/t/filter/out_str_req_mix.t?view=diff&r1=156618&r2=156619
==============================================================================
--- perl/modperl/branches/apache2-rename-unstable/t/filter/out_str_req_mix.t 
(original)
+++ perl/modperl/branches/apache2-rename-unstable/t/filter/out_str_req_mix.t 
Tue Mar  8 21:47:04 2005
@@ -13,7 +13,7 @@
 
 my $expected = 'This is a clear text';
 my $received = POST_BODY $location, content => $content;
-chomp $received;
+$received =~ s{\r?\n$}{};
 
 ok t_cmp($expected, $received, 
     "mixing output httpd and mod_perl filters, while preserving order");