cvs commit: modperl-2.0/t/filter/TestFilter in_str_bin_data.pm

[stas]

stas        2004/03/15 17:21:30

  Modified:    t/filter in_str_bin_data.t
               t/filter/TestFilter in_str_bin_data.pm
  Log:
  cleanup
  
  Revision  Changes    Path
  1.2       +0 -3      modperl-2.0/t/filter/in_str_bin_data.t
  
  Index: in_str_bin_data.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/in_str_bin_data.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- in_str_bin_data.t 16 Mar 2004 00:59:45 -0000      1.1
  +++ in_str_bin_data.t 16 Mar 2004 01:21:30 -0000      1.2
  @@ -22,8 +22,5 @@
       ok t_cmp($expected,
                $received,
                "$location binary response data");
  -    open my $fh, ">>/tmp/dat" or die $!;
  -    print $fh "$received\n";
  -    close $fh;
   }
   
  
  
  
  1.2       +2 -2      modperl-2.0/t/filter/TestFilter/in_str_bin_data.pm
  
  Index: in_str_bin_data.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/in_str_bin_data.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- in_str_bin_data.pm        16 Mar 2004 00:59:45 -0000      1.1
  +++ in_str_bin_data.pm        16 Mar 2004 01:21:30 -0000      1.2
  @@ -1,7 +1,7 @@
   package TestFilter::in_str_bin_data;
   
  -# test that $r->print correctly handles binary data (e.g. doesn't
  -# truncate on "\0" if there is more data after it)
  +# test that $r->print and $f->print handle binary data correctly
  +# (e.g. doesn't truncate on "\0" if there is more data after it)
   
   use strict;
   use warnings FATAL => 'all';