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