1# please insert nothing before this line: -*- mode: cperl; cperl-indent-level: 4; cperl-continued-statement-offset: 4; indent-tabs-mode: nil -*-
2package TestApache::daemon;
3
4# Apache2::ServerUtil tests
5
6use strict;
7use warnings FATAL => 'all';
8
9use Apache2::ServerUtil ();
10
11use Apache::TestConfig ();
12use Apache::TestUtil;
13use Apache::Test;
14
15use constant WIN32 => Apache::TestConfig::WIN32;
16
17use Apache2::Const -compile => 'OK';
18
19sub handler {
20    my $r = shift;
21
22    plan $r, tests => 2;
23
24    my $user_id = Apache2::ServerUtil->user_id;
25    my $user_id_expected = WIN32 ? 0 : $<;
26
27    ok t_cmp $user_id, $user_id_expected, "user id";
28
29    my $group_id = Apache2::ServerUtil->group_id;
30    my ($group_id_expected) = WIN32 ? 0 : ($( =~ /^(\d+)/);
31
32    ok t_cmp $group_id, $group_id_expected, "group id";
33
34    Apache2::Const::OK;
35}
36
371;
38
39__END__
40
41