You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by ge...@apache.org on 2004/01/19 19:35:26 UTC
cvs commit: modperl-2.0/t/response/TestAPI server_const.pm
geoff 2004/01/19 10:35:26
Modified: t/api .cvsignore
Added: t/response/TestAPI server_const.pm
Log:
add server_const.pm to test Apache::Server constant subroutines
Revision Changes Path
1.6 +1 -1 modperl-2.0/t/api/.cvsignore
Index: .cvsignore
===================================================================
RCS file: /home/cvs/modperl-2.0/t/api/.cvsignore,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- .cvsignore 4 Dec 2003 17:37:12 -0000 1.5
+++ .cvsignore 19 Jan 2004 18:35:26 -0000 1.6
@@ -14,4 +14,4 @@
uri.t
query.t
show.t
-
+server_const.t
1.1 modperl-2.0/t/response/TestAPI/server_const.pm
Index: server_const.pm
===================================================================
package TestAPI::server_const;
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestUtil;
use File::Spec::Functions qw(canonpath);
use Apache::ServerUtil ();
use Apache::Process ();
use APR::Pool ();
use Apache::Const -compile => 'OK';
my $cfg = Apache::Test::config;
my $root = $cfg->{vars}->{serverroot};
my $built = $cfg->{httpd_info}->{BUILT};
my $version = $cfg->{httpd_info}->{VERSION};
sub handler {
my $r = shift;
plan $r, tests => 3;
# test Apache::Server constant subroutines
ok t_cmp(canonpath($root),
canonpath(Apache::server_root),
'Apache::Server::server_root()');
ok t_cmp($built,
Apache::Server::get_server_built,
'Apache::Server::get_server_built()');
ok t_cmp($version,
Apache::Server::get_server_version,
'Apache::Server::get_server_version()');
Apache::OK;
}
1;
__END__