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

[stas]

stas        2003/08/06 00:06:23

  Modified:    t/filter in_init_basic.t
  Log:
  older httpds may run the input request filter twice
  
  Revision  Changes    Path
  1.4       +3 -2      modperl-2.0/t/filter/in_init_basic.t
  
  Index: in_init_basic.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/in_init_basic.t,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- in_init_basic.t   13 May 2003 09:21:02 -0000      1.3
  +++ in_init_basic.t   6 Aug 2003 07:06:23 -0000       1.4
  @@ -8,8 +8,9 @@
   plan tests => 1;
   
   my $content = "content ok\n";
  -my $expected = join '', $content, "init 1\n", "run 1\n";
  +# older httpds may run the input request filter twice
  +my $expected = join '', $content, "init 1\n", "run [12]\n";
   
   my $location = '/TestFilter__in_init_basic';
   my $response = POST_BODY $location, content => $content;
  -ok t_cmp($expected, $response, "test filter init functionality");
  +ok t_cmp(qr/$expected/, qr/$response/, "test filter init functionality");