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:20:31 UTC
cvs commit: httpd-test/perl-framework/t/php arg.t func5.t
jwoolley 02/05/09 15:20:31
Modified: perl-framework/t/php arg.t func5.t
Log:
More verbosity
Revision Changes Path
1.5 +5 -1 httpd-test/perl-framework/t/php/arg.t
Index: arg.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/php/arg.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -u -r1.4 -r1.5
--- arg.t 18 Sep 2001 15:41:03 -0000 1.4
+++ arg.t 9 May 2002 22:20:31 -0000 1.5
@@ -3,6 +3,7 @@
use Apache::Test;
use Apache::TestRequest;
+use Apache::TestUtil;
plan tests => 1, have_module 'php4';
@@ -27,4 +28,7 @@
chop($testargs); ## get rid of trailing '+'
my $result = GET_BODY "/php/arg.php?$testargs";
-ok $result eq $expected;
+ok t_cmp($expected,
+ $result,
+ "GET request for /php/arg.php?$testargs"
+ );
1.11 +9 -4 httpd-test/perl-framework/t/php/func5.t
Index: func5.t
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/t/php/func5.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -u -r1.10 -r1.11
--- func5.t 18 Sep 2001 15:41:03 -0000 1.10
+++ func5.t 9 May 2002 22:20:31 -0000 1.11
@@ -3,6 +3,7 @@
use Apache::Test;
use Apache::TestRequest;
+use Apache::TestUtil;
plan tests => 2, have_module 'php4';
@@ -15,12 +16,16 @@
EXPECT
my $result = GET_BODY "/php/func5.php?$file";
-print "GET /php/func5.php?$file\n";
-print "expect:\n$expected\nactual:\n$result\n";
-ok $result eq $expected;
+ok t_cmp($expected,
+ $result,
+ "GET request for /php/func5.php?$file"
+ );
sleep 1;
-ok -e $file;
+ok t_cmp(1,
+ -e $file,
+ "$file exists"
+ );
# Clean up
unlink $file if -e $file;