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 do...@apache.org on 2001/08/30 06:40:30 UTC
cvs commit: modperl-2.0/t/modules cgiupload.t
dougm 01/08/29 21:40:30
Modified: t/modules cgiupload.t
Log:
print lengths for debugging
Revision Changes Path
1.2 +4 -2 modperl-2.0/t/modules/cgiupload.t
Index: cgiupload.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/modules/cgiupload.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- cgiupload.t 2001/05/08 05:19:46 1.1
+++ cgiupload.t 2001/08/30 04:40:30 1.2
@@ -22,6 +22,8 @@
for (1,2) {
my $str = UPLOAD_BODY $location, filename => $filename;
-
- ok -s $filename == length($str);
+ my $body_len = length $str;
+ my $file_len = -s $filename;
+ print "body_len=$body_len, file_len=$file_len\n";
+ ok $body_len == $file_len;
}