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 2004/09/29 05:09:22 UTC
cvs commit: modperl-2.0/t/apache cgihandler.t
stas 2004/09/28 20:09:22
Modified: t/apache cgihandler.t
Log:
make it easier to debug the test
Revision Changes Path
1.4 +6 -6 modperl-2.0/t/apache/cgihandler.t
Index: cgihandler.t
===================================================================
RCS file: /home/cvs/modperl-2.0/t/apache/cgihandler.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -u -r1.3 -r1.4
--- cgihandler.t 18 Apr 2003 06:18:55 -0000 1.3
+++ cgihandler.t 29 Sep 2004 03:09:22 -0000 1.4
@@ -2,19 +2,19 @@
use warnings FATAL => 'all';
use Apache::Test;
+use Apache::TestUtil;
use Apache::TestRequest;
plan tests => 2;
my $location = "/TestApache__cgihandler";
-my $str;
-my $data = "1..3\nok 1\nok 2\nok 3\n";
+my $expected = "1..3\nok 1\nok 2\nok 3\n";
-$str = POST_BODY $location, content => $data;
+my $received = POST_BODY $location, content => $expected;
-ok $str eq $data;
+ok t_cmp $received, $expected, "POST cgihandler";
-$str = GET_BODY $location;
+$received = GET_BODY $location;
-ok $str eq $data;
+ok t_cmp $received, $expected, "GET cgihandler";