cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestUtil.pm

[coar]

coar        01/11/03 09:10:01

  Modified:    perl-framework/Apache-Test/lib/Apache TestUtil.pm
  Log:
  Well, Stas said it was simple.. :-)
  
  Revision  Changes    Path
  1.11      +8 -8      
httpd-test/perl-framework/Apache-Test/lib/Apache/TestUtil.pm
  
  Index: TestUtil.pm
  ===================================================================
  RCS file: 
/home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestUtil.pm,v
  retrieving revision 1.10
  retrieving revision 1.11
  diff -u -u -r1.10 -r1.11
  --- TestUtil.pm       2001/10/20 10:47:29     1.10
  +++ TestUtil.pm       2001/11/03 17:10:00     1.11
  @@ -24,9 +24,9 @@
           ' usage: $res = t_cmp($expected, $received, [$comment])'
               if @_ < 2 || @_ > 3;
   
  -    print "testing : ", pop, "\n" if @_ == 3;
  -    print "expected: ", struct_as_string(0, $_[0]), "\n";
  -    print "received: ", struct_as_string(0, $_[1]), "\n";
  +    print "# testing : ", pop, "\n" if @_ == 3;
  +    print "# expected: ", struct_as_string(0, $_[0]), "\n";
  +    print "# received: ", struct_as_string(0, $_[1]), "\n";
       return t_is_equal(@_);
   }
   
  @@ -35,7 +35,7 @@
       die "must pass a filename" unless defined $file;
       my $fh = Symbol::gensym();
       open $fh, ">$file" or die "can't open $file: $!";
  -    print "writing file: $file\n";
  +    print "# writing file: $file\n";
       print $fh join '', @_ if @_;
       close $fh;
       $CLEAN{files}{$file}++;
  @@ -46,7 +46,7 @@
       die "must pass a filename" unless defined $file;
       my $fh = Symbol::gensym();
       open $fh, ">$file" or die "can't open $file: $!";
  -    print "writing file: $file\n";
  +    print "# writing file: $file\n";
       $CLEAN{files}{$file}++;
       return $fh;
   }
  @@ -76,7 +76,7 @@
       my $dir = shift;
       die "must pass a dirname" unless defined $dir;
       mkdir $dir, 0755 unless -d $dir;
  -    print "creating dir: $dir\n";
  +    print "# creating dir: $dir\n";
       $CLEAN{dirs}{$dir}++;
   }
   
  @@ -169,13 +169,13 @@
   
       # remove files that were created via this package
       for (grep {-e $_ && -f _ } keys %{ $CLEAN{files} } ) {
  -        print "removing file: $_\n";
  +        print "# removing file: $_\n";
           unlink $_;
       }
   
       # remove dirs that were created via this package
       for (grep {-e $_ && -d _ } keys %{ $CLEAN{dirs} } ) {
  -        print "removing dir tree: $_\n";
  +        print "# removing dir tree: $_\n";
           t_rmtree($_);
       }
   }