5 use System::Introspector::Config;
7 my $config = System::Introspector::Config->new(
8 config_file => "$FindBin::Bin/data/test.conf",
11 is $config->sudo_user, 'root', 'sudo user';
12 is_deeply [$config->groups], [qw( stable unstable )], 'groups';
13 ok $config->has_group('stable'), 'has group';
14 ok !$config->has_group('none'), 'does not have group';
15 is_deeply [$config->hosts], [qw( foo bar baz qux quux quuux )], 'hosts';
16 is $config->user, 'introspect', 'user';
18 is_deeply $config->config_for_group('stable'), {
23 }, 'multiple elements with one sudo';
25 is_deeply $config->config_for_group('unstable'), {
29 }, 'single element with group-wide sudo';