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/09/18 08:28:19 UTC
cvs commit: modperl-2.0/t/modules cgi.t
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");
};