dougm 01/04/02 02:01:25 Added: Apache-Test/t TEST ping.t request.t Log: test test files Revision Changes Path 1.1 modperl-2.0/Apache-Test/t/TEST Index: TEST =================================================================== #!perl use strict; use warnings FATAL => 'all'; use lib qw(lib ../lib); use Apache::TestRun (); package MyTest; our @ISA = qw(Apache::TestRun); sub configure_modperl {} #dont configure mod_perl for these tests MyTest->new->run(@ARGV); 1.1 modperl-2.0/Apache-Test/t/ping.t Index: ping.t =================================================================== use strict; use warnings FATAL => 'all'; use Apache::Test; plan tests => 3; use Apache::TestConfig (); my $test_config = Apache::TestConfig->thaw; ok $test_config; my $server = $test_config->server; ok $server; ok $server->ping; 1.1 modperl-2.0/Apache-Test/t/request.t Index: request.t =================================================================== use strict; use warnings FATAL => 'all'; use Apache::Test; use Apache::TestRequest; plan tests => 9, \&Apache::TestRequest::has_lwp; my $url = '/'; ok GET_OK $url; ok GET_RC $url; ok GET_STR $url; ok GET_BODY $url; ok HEAD_OK $url; ok HEAD_RC $url; ok HEAD_STR $url; ok GET_OK $url, username => 'dougm', password => 'XXXX'; #e.g. for auth ok GET_OK $url, Referer => $0; #add headers #post a string #ok POST_OK $url, content => 'post body data'; #or key/value pairs (see HTTP::Request::Common #ok POST_OK $url, [university => 'arizona', team => 'wildcats']