Stas Bekman wrote:
probably better:
require Apache::TestClient; my $r = Apache::TestClient::GET(@_); Carp::confess("oops") unless defined $r;
or restore the original:
require Apache::TestClient; my $r = (\&{$name})->(@_); Carp::confess("oops") unless defined $r;
this is what I have now :
sub lwp_call { my($name, $shortcut) = (shift, shift);
require Carp; require Apache::TestClient; my $r = (\&{$name})->(@_); # my $r = Apache::TestClient::GET->(@_); Carp::confess("oops") unless defined $r; # my $r = (\&{$name})->(@_); my $error = "";
unless ($shortcut) { #GET, HEAD, POST
make test now shows a huge pile of errors starting with :
waiting for server to start: ok (waited 5 secs)
server localhost:8529 started
server localhost:8530 listening (TestProtocol::echo)
server localhost:8531 listening (TestProtocol::echo_filter)
server localhost:8532 listening (TestProtocol::eliza)
server localhost:8533 listening (TestPreConnection::note)
server localhost:8534 listening (TestFilter::both_str_con_add)
server localhost:8535 listening (TestFilter::in_bbs_msg)
server localhost:8536 listening (TestFilter::in_str_msg)
server localhost:8537 listening (TestDirective::perlmodule)
server localhost:8538 listening (TestDirective::perlrequire)
server localhost:8539 listening (TestDirective::perlloadmodule3)
server localhost:8540 listening (TestDirective::perlloadmodule4)
server localhost:8541 listening (TestDirective::perlloadmodule5)
server localhost:8542 listening (TestDirective::perlloadmodule6)
apache/add_config..............request has failed (the response code was: 500)
yes, but what the error_log says? All I need is the first error, which you can get:
rm t/logs/error_log t/TEST apache/add_config
Now, I think the test suite is confused about having and not having LWP. Next please scratch all the changes (just remove TestRequest.pm and run 'cvs up') and apply this:
Index: Apache-Test/lib/Apache/TestRequest.pm
===================================================================
RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestRequest.pm,v
retrieving revision 1.78
diff -u -r1.78 TestRequest.pm
--- Apache-Test/lib/Apache/TestRequest.pm 24 Apr 2003 05:16:57 -0000 1.78
+++ Apache-Test/lib/Apache/TestRequest.pm 5 Jun 2003 03:18:19 -0000
@@ -30,6 +30,8 @@
require Apache::TestClient;
}
+die "NO LWP" unless $have_lwp;
+
sub has_lwp { $have_lwp }unless ($have_lwp) {
I think $have_lwp is true for some reason, even though LWP is not available.
__________________________________________________________________ Stas Bekman JAm_pH ------> Just Another mod_perl Hacker http://stason.org/ mod_perl Guide ---> http://perl.apache.org mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com http://modperlbook.org http://apache.org http://ticketmaster.com
--------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
