randyk 2004/07/10 18:26:55
Modified: glue/perl/t/apreq request.t
Log:
Reviewed by: joes
Upload content without the \r, as Win32 inserts an extra one at the end.
Revision Changes Path
1.17 +1 -1 httpd-apreq-2/glue/perl/t/apreq/request.t
Index: request.t
===================================================================
RCS file: /home/cvs/httpd-apreq-2/glue/perl/t/apreq/request.t,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- request.t 7 Jul 2004 23:53:01 -0000 1.16
+++ request.t 11 Jul 2004 01:26:55 -0000 1.17
@@ -22,7 +22,7 @@
for my $test (qw/slurp bb tempname link fh io bad;query=string%%/) {
# upload a string as a file
- my $value = ('DataUpload' x 10 . "\r\n") x 1_000;
+ my $value = ('DataUpload' x 10 . "\n") x 1_000;
my $result = UPLOAD_BODY("$location?test=$test", content => $value);
ok t_cmp($value, $result, "basic upload");
my $i;
