cvs commit: modperl-2.0/t/modules cgi.t

[stas]

stas        2003/09/17 23:28:19

  Modified:    t/modules cgi.t
  Log:
  looks like the last subtest got messed up in the transition to sok {}, fix
  it to do testing for real
  
  Revision  Changes    Path
  1.8       +2 -1      modperl-2.0/t/modules/cgi.t
  
  Index: cgi.t
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/modules/cgi.t,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -u -r1.7 -r1.8
  --- cgi.t     18 Apr 2003 06:18:58 -0000      1.7
  +++ cgi.t     18 Sep 2003 06:28:19 -0000      1.8
  @@ -44,6 +44,7 @@
   sok {
       my $header = 'X-Perl-Module';
       $res = GET $location;
  -    t_cmp($module, $module,
  +    t_cmp($module,
  +          $res->header($header),
             "$header header");
   };