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

[stas]

stas        02/01/01 02:38:19

  Modified:    t/modules cgiupload.t
  Log:
  debug prints start with #
  
  Revision  Changes    Path
  1.4       +2 -1      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.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- cgiupload.t       17 Sep 2001 13:27:14 -0000      1.3
  +++ cgiupload.t       1 Jan 2002 10:38:19 -0000       1.4
  @@ -2,6 +2,7 @@
   use warnings FATAL => 'all';
   
   use Apache::Test;
  +use Apache::TestUtil;
   use Apache::TestRequest;
   
   plan tests => 2, \&have_lwp;
  @@ -24,6 +25,6 @@
       my $str = UPLOAD_BODY $location, filename => $filename;
       my $body_len = length $str;
       my $file_len = -s $filename;
  -    print "body_len=$body_len, file_len=$file_len\n";
  +    t_debug "body_len=$body_len, file_len=$file_len";
       ok $body_len == $file_len;
   }