cvs commit: modperl-2.0/t/filter out_bbs_filebucket.t

[stas]

stas        2004/08/26 16:35:39

  Modified:    t/filter out_bbs_filebucket.t
  Log:
  fix the test to actually test something, the initial data must be
  lowercased to test whether it was uppercased by the filter
  
  Revision  Changes    Path
  1.2       +1 -1      modperl-2.0/t/filter/out_bbs_filebucket.t
  
  Index: out_bbs_filebucket.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/out_bbs_filebucket.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -u -r1.1 -r1.2
  --- out_bbs_filebucket.t      13 Aug 2004 01:51:15 -0000      1.1
  +++ out_bbs_filebucket.t      26 Aug 2004 23:35:39 -0000      1.2
  @@ -30,7 +30,7 @@
   sub write_file {
       my $size = shift;
   
  -    my $data = "ABCD" x ($size * 256);
  +    my $data = "abcd" x ($size * 256);
   
       my $file = catfile $dir, "data_${size}k.txt";
       open my $fh, ">$file" or die "can't open $file: $!";