cvs commit: httpd-test/perl-framework/t/filter case.t case_in.t

[jwoolley]

jwoolley    01/11/11 18:37:27

  Modified:    perl-framework/t/filter case.t case_in.t
  Log:
  Add a little -v verbiage so I could figure out why on earth
  these were failing
  
  Revision  Changes    Path
  1.4       +6 -1      httpd-test/perl-framework/t/filter/case.t
  
  Index: case.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/filter/case.t,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -d -u -r1.3 -r1.4
  --- case.t    2001/09/18 15:41:03     1.3
  +++ case.t    2001/11/12 02:37:27     1.4
  @@ -24,12 +24,17 @@
   
   for my $module (sort keys %urls) {
       if ($modules{$module}) {
  -        verify(GET $urls{$module}, @filter);
  +        my $r = GET $urls{$module}, @filter;
  +        print "# testing $module with $urls{$module}\n";
  +        print "# expected 200\n";
  +        print "# received ".$r->code."\n";
  +        verify($r);
       }
   }
   
   sub verify {
       my $r = shift;
  +    my $url = shift;
       my $body = $r->content;
   
       ok $r->code == 200 and $body
  
  
  
  1.3       +5 -1      httpd-test/perl-framework/t/filter/case_in.t
  
  Index: case_in.t
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/t/filter/case_in.t,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -d -u -r1.2 -r1.3
  --- case_in.t 2001/09/18 15:41:03     1.2
  +++ case_in.t 2001/11/12 02:37:27     1.3
  @@ -25,7 +25,11 @@
   
   for my $module (sort keys %urls) {
       if ($modules{$module}) {
  -        verify(POST $urls{$module}, @filter, content => $data);
  +        my $r = POST $urls{$module}, @filter, content => $data;
  +        print "# testing $module with $urls{$module}\n";
  +        print "# expected 200\n";
  +        print "# received ".$r->code."\n";
  +        verify($r);
       }
   }