cvs commit: modperl-2.0/t/modules cgiupload.t

[dougm]

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;
   }