1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
|
package TestAPI::server_const;
use strict;
use warnings FATAL => 'all';
use Apache::Test;
use Apache::TestUtil;
use File::Spec::Functions qw(canonpath);
use Apache2::ServerUtil ();
use Apache2::Process ();
use APR::Pool ();
use Apache2::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 => 5;
# test Apache2::ServerUtil constant subroutines
ok t_filepath_cmp(canonpath(Apache2::ServerUtil::server_root),
canonpath($root),
'Apache2::ServerUtil::server_root()');
ok t_cmp(Apache2::ServerUtil::get_server_built,
$built,
'Apache2::ServerUtil::get_server_built()');
ok t_cmp(Apache2::ServerUtil::get_server_description,
$version,
'Apache2::ServerUtil::get_server_description()');
my $server_version = Apache2::ServerUtil::get_server_version;
ok t_cmp($version,
qr/^$server_version/,
'Apache2::ServerUtil::get_server_version()');
my $server_banner = Apache2::ServerUtil::get_server_banner;
ok t_cmp($version,
qr/^$server_banner/,
'Apache2::ServerUtil::get_server_banner()');
Apache2::Const::OK;
}
1;
__END__
|
