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
|
use Test::More tests => 6;
use strict;
my $PREFIX = $ENV{PWD}.'/t/install';
my $run = "$PREFIX/sbin/munin-run --sconfdir=$ENV{PWD}/t/plugin-conf.d";
sub run {
my $plugin = shift or die "run(): plugin required\n";
my @lines = `$run $plugin` or warn "No output from '$plugin' plugin\n";
warn "Error running '$plugin' plugin\n", @lines if $?;
my %ret;
for (@lines) {
if (/^(\w+)\.(\w+)\s+(.+)/) { # unfuck cperl-mode +
$ret{$1}{$2} = $3;
}
elsif (/(\w+)\s+(.+)/) {
$ret{$1} = $2;
}
}
return %ret;
}
SKIP: {
skip "need root for uid/gid tests", 4 if $>;
skip "nobody/nogroup missing", 4
unless getpwnam('nobody') && getgrnam('nogroup');
my %id = run('id_default');
is($id{uid}{extinfo}, 'nobody', "default user");
like($id{gid}{extinfo}, qr/^nogroup/, "default group");
my %id = run('id_root');
is($id{uid}{value}, 0, 'user override');
like($id{gid}{extinfo}, qr/\broot\b/, 'group override');
}
my %env = run('env');
is_deeply(\%env,
{ count => { value => 1 },
munin_test => { value => 4,
extinfo => 'test',
},
},
'environment variables');
TODO: {
local $TODO = "munin-run doesn't handle this";
my %config = run('env config');
is($config{host_name}, 'test.example.com', 'host_name override');
}
|
