cvs commit: httpd-test/perl-framework/t/php var1.t var2.t var3.t

[jwoolley]

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"
  +        );