You are viewing a plain text version of this content. The canonical link for it is here.
Posted to test-cvs@httpd.apache.org by jw...@apache.org on 2002/05/10 00:07:37 UTC
cvs commit: httpd-test/perl-framework/t/php var1.t var2.t var3.t
jwoolley 02/05/09 15:07:37
Modified: perl-framework/t/php var1.t var2.t var3.t
Log:
Add verbose debugging
Revision Changes Path
1.5 +9 -2 httpd-test/perl-framework/t/php/var1.t
Index: var1.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/php/var1.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -u -r1.4 -r1.5
--- var1.t 18 Sep 2001 15:41:04 -0000 1.4
+++ var1.t 9 May 2002 22:07:36 -0000 1.5
@@ -3,6 +3,7 @@
use Apache::Test;
use Apache::TestRequest;
+use Apache::TestUtil;
plan tests => 2, have_module 'php4';
@@ -22,8 +23,14 @@
#print STDERR "\n\n$return\n\n";
#ok $return eq $expected;
my $return = POST_BODY $page, content => "variable=$data";
-ok $return eq $expected;
+ok t_cmp($expected,
+ $return,
+ "POST request for $page, content=\"variable=$data\""
+ );
## GET
$return = GET_BODY "$page?variable=$data";
-ok $return eq $expected;
+ok t_cmp($expected,
+ $return,
+ "GET request for $page?variable=$data"
+ );
1.5 +9 -2 httpd-test/perl-framework/t/php/var2.t
Index: var2.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/php/var2.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -u -r1.4 -r1.5
--- var2.t 18 Sep 2001 15:41:04 -0000 1.4
+++ var2.t 9 May 2002 22:07:37 -0000 1.5
@@ -3,6 +3,7 @@
use Apache::Test;
use Apache::TestRequest;
+use Apache::TestUtil;
plan tests => 2, have_module 'php4';
@@ -20,8 +21,14 @@
## POST
my $return = POST_BODY $page, content => $data;
-ok $return eq $expected;
+ok t_cmp($expected,
+ $return,
+ "POST request for $page, content=\"$data\""
+ );
## GET
$return = GET_BODY "$page?$data";
-ok $return eq $expected;
+ok t_cmp($expected,
+ $return,
+ "GET request for $page?$data"
+ );
1.5 +9 -2 httpd-test/perl-framework/t/php/var3.t
Index: var3.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/php/var3.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -u -r1.4 -r1.5
--- var3.t 18 Sep 2001 15:41:04 -0000 1.4
+++ var3.t 9 May 2002 22:07:37 -0000 1.5
@@ -3,6 +3,7 @@
use Apache::Test;
use Apache::TestRequest;
+use Apache::TestUtil;
plan tests => 2, have_module 'php4';
@@ -21,8 +22,14 @@
## POST
my $return = POST_BODY $page, content => $data;
-ok $return eq $expected;
+ok t_cmp($expected,
+ $return,
+ "POST request for $page, content=\"$data\""
+ );
## GET
$return = GET_BODY "$page?$data";
-ok $return eq $expected;
+ok t_cmp($expected,
+ $return,
+ "GET request for $page?$data"
+ );