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 2001/11/12 03:37:27 UTC
cvs commit: httpd-test/perl-framework/t/filter case.t case_in.t
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);
}
}
Re: cvs commit: httpd-test/perl-framework/t/filter case.t case_in.t
Posted by Doug MacEachern <do...@covalent.net>.
On 12 Nov 2001 jwoolley@apache.org wrote:
> 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
t/TEST -d lwp t/filter/case
will print out some of that info and then some, for that and any test.