You are viewing a plain text version of this content. The canonical link for it is here.

Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2003/05/15 09:36:23 UTC

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

stas        2003/05/15 00:36:23

  Modified:    t/filter in_bbs_underrun.t
  Log:
  fix comments
  
  Revision  Changes    Path
  1.2       +4 -4      modperl-2.0/t/filter/in_bbs_underrun.t
  
  Index: in_bbs_underrun.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/in_bbs_underrun.t,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -r1.1 -r1.2
  --- in_bbs_underrun.t	15 May 2003 07:21:24 -0000	1.1
  +++ in_bbs_underrun.t	15 May 2003 07:36:23 -0000	1.2
  @@ -9,11 +9,11 @@
   
   my $location = '/TestFilter__in_bbs_underrun';
   
  -# send a message bigger than 8k, so to make sure that the input filter
  -# will get more than one bucket brigade with data.
  -my $length = 40 * 1024 + 7; # ~40k (~5 incoming bucket brigades)
  +# send a message of about 40k, so to make sure that the input filter
  +# will get several bucket brigades with data (about 8k/brigade)
  +my $length = 40 * 1024 + 7; # ~40k+ (~6 incoming bucket brigades)
   my $data = "x" x $length;
   my $received = POST_BODY $location, content => $data;
   my $expected = "read $length chars";
   
  -ok t_cmp($expected, $received, "input stream filter underrun test")
  +ok t_cmp($expected, $received, "input bbs filter underrun test")