cvs commit: httpd-test/perl-framework/t/php arg.t func5.t

[jwoolley]

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;