cvs commit: modperl-2.0/t/response/TestAPI conn_rec.pm request_rec.pm server_rec.pm
dougm 01/11/13 10:40:01 Modified:t/response/TestAPI conn_rec.pm request_rec.pm server_rec.pm Log: add some comments to the *_rec tests Revision ChangesPath 1.4 +6 -1 modperl-2.0/t/response/TestAPI/conn_rec.pm Index: conn_rec.pm === RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/conn_rec.pm,v retrieving revision 1.3 retrieving revision 1.4 diff -u -r1.3 -r1.4 --- conn_rec.pm 2001/04/19 05:46:04 1.3 +++ conn_rec.pm 2001/11/13 18:40:01 1.4 @@ -5,6 +5,11 @@ use Apache::Test; +use Apache::Const -compile => 'OK'; + +#this test module is only for testing fields in the conn_rec +#listed in apache_structures.map + sub handler { my $r = shift; @@ -48,7 +53,7 @@ #output_filters #remain -0; +Apache::OK; } 1; 1.13 +5 -0 modperl-2.0/t/response/TestAPI/request_rec.pm Index: request_rec.pm === RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/request_rec.pm,v retrieving revision 1.12 retrieving revision 1.13 diff -u -r1.12 -r1.13 --- request_rec.pm2001/11/13 18:35:08 1.12 +++ request_rec.pm2001/11/13 18:40:01 1.13 @@ -8,6 +8,11 @@ use Apache::Const -compile => 'OK'; +#this test module is only for testing fields in the request_rec +#listed in apache_structures.map +#XXX: GloabalRequest test should be moved elsewhere +# as should $| test + sub handler { my $r = shift; 1.7 +3 -3 modperl-2.0/t/response/TestAPI/server_rec.pm Index: server_rec.pm === RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/server_rec.pm,v retrieving revision 1.6 retrieving revision 1.7 diff -u -r1.6 -r1.7 --- server_rec.pm 2001/11/13 18:35:08 1.6 +++ server_rec.pm 2001/11/13 18:40:01 1.7 @@ -9,6 +9,9 @@ use Apache::Const -compile => 'OK'; +#this test module is only for testing fields in the server_rec +#listed in apache_structures.map + sub handler { my $r = shift; @@ -61,9 +64,6 @@ ok $s->limit_req_fields; Apache::OK; - } 1; - -__END__
cvs commit: modperl-2.0/t/response/TestAPI conn_rec.pm request_rec.pm server_rec.pm
dougm 01/04/03 09:59:11 Modified:t/response/TestAPI conn_rec.pm request_rec.pm server_rec.pm Log: add missing strictness Revision ChangesPath 1.2 +3 -0 modperl-2.0/t/response/TestAPI/conn_rec.pm Index: conn_rec.pm === RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/conn_rec.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- conn_rec.pm 2001/04/02 09:05:00 1.1 +++ conn_rec.pm 2001/04/03 16:59:08 1.2 @@ -1,5 +1,8 @@ package TestAPI::conn_rec; +use strict; +use warnings FATAL => 'all'; + use Apache::Test; sub handler { 1.2 +3 -0 modperl-2.0/t/response/TestAPI/request_rec.pm Index: request_rec.pm === RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/request_rec.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- request_rec.pm2001/04/02 09:05:01 1.1 +++ request_rec.pm2001/04/03 16:59:09 1.2 @@ -1,5 +1,8 @@ package TestAPI::request_rec; +use strict; +use warnings FATAL => 'all'; + use Apache::Test; sub handler { 1.2 +3 -0 modperl-2.0/t/response/TestAPI/server_rec.pm Index: server_rec.pm === RCS file: /home/cvs/modperl-2.0/t/response/TestAPI/server_rec.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- server_rec.pm 2001/04/02 09:05:01 1.1 +++ server_rec.pm 2001/04/03 16:59:09 1.2 @@ -1,5 +1,8 @@ package TestAPI::server_rec; +use strict; +use warnings FATAL => 'all'; + use Apache::Test; sub handler {
cvs commit: modperl-2.0/t/response/TestAPI conn_rec.pm request_rec.pm server_rec.pm
dougm 01/04/02 02:05:01 Added: t/response/TestAPI conn_rec.pm request_rec.pm server_rec.pm Log: start of apache api tests Revision ChangesPath 1.1 modperl-2.0/t/response/TestAPI/conn_rec.pm Index: conn_rec.pm === package TestAPI::conn_rec; use Apache::Test; sub handler { my $r = shift; my $c = $r->connection; plan $r, tests => 17; ok $c; ok $c->pool->isa('APR::Pool'); ok $c->base_server->isa('Apache::Server'); ok $c->client_socket->isa('APR::Socket'); ok $c->local_addr->isa('APR::SockAddr'); ok $c->remote_addr->isa('APR::SockAddr'); ok $c->remote_ip; ok $c->remote_host || 1; ok $c->remote_logname || 1; ok $c->aborted || 1; ok $c->keepalive || 1; ok $c->keptalive || 1; ok $c->keepalives || 1; ok $c->local_ip; ok $c->local_host || 1; ok $c->id || 1; #conn_config ok $r->notes; #input_filters #output_filters #remain 0; } 1; 1.1 modperl-2.0/t/response/TestAPI/request_rec.pm Index: request_rec.pm === package TestAPI::request_rec; use Apache::Test; sub handler { my $r = shift; plan $r, tests => 33; ok $r->pool->isa('APR::Pool'); ok $r->connection->isa('Apache::Connection'); ok $r->server->isa('Apache::Server'); for (qw(next prev main)) { ok (! $r->$_()) || $r->$_()->isa('Apache::RequestRec'); } ok $r->the_request || 1; ok $r->assbackwards || 1; ok $r->proxyreq || 1; ok $r->header_only || 1; ok $r->protocol =~ /http/i; ok $r->proto_num; ok $r->hostname || 1; ok $r->request_time; ok $r->status_line || 1; ok $r->status || 1; ok $r->method; ok $r->method_number || 1; ok $r->allowed || 1; #allowed_xmethods #allow_methods ok $r->bytes_sent || 1; ok $r->mtime || 1; ok $r->headers_in; ok $r->headers_out; ok $r->err_headers_out; ok $r->subprocess_env; ok $r->notes; ok $r->content_type; ok $r->handler; #content_encoding #content_language #content_languages #user #no_cache #no_local_copy ok $r->unparsed_uri; ok $r->uri; ok $r->filename; ok $r->path_info || 1; ok $r->args || 1; #finfo #parsed_uri #per_dir_config #request_config #output_filters #input_filers #eos_sent 0; } 1; 1.1 modperl-2.0/t/response/TestAPI/server_rec.pm Index: server_rec.pm === package TestAPI::server_rec; use Apache::Test; sub handler { my $r = shift; my $s = $r->server; plan $r, tests => 17; ok $s; ok $s->process; ok $s->next || 1; ok $s->server_admin; ok $s->server_hostname; ok $s->port || 1; ok $s->error_fname; #error_log; ok $s->loglevel; ok $s->is_virtual || 1; #module_config #lookup_defaults ok $s->addrs; ok $s->timeout; #keep_alive_timeout #keep_alive_max #keep_alive ok $s->path || 1; ok $s->names || 1; ok $s->wild_names || 1; ok $s->limit_req_line; ok $s->limit_req_fieldsize; ok $s->limit_req_fields; 0; } 1;