Commit | Line | Data |
b18174b8 |
1 | use strictures 1; |
2 | use Test::More; |
3 | use FindBin; |
4 | |
afd7c030 |
5 | use System::Introspector::Probe::Puppet; |
b18174b8 |
6 | |
afd7c030 |
7 | my $probe = System::Introspector::Probe::Puppet->new( |
b18174b8 |
8 | classes_file => "$FindBin::Bin/data/puppet/classes.txt", |
9 | resources_file => "$FindBin::Bin/data/puppet/resources.txt", |
10 | ); |
11 | |
12 | my $data = $probe->gather; |
1b608727 |
13 | is_deeply $data->{classes}, |
b18174b8 |
14 | [qw( user::foo settings user::foo user::bar )], |
15 | 'classes parsing'; |
1b608727 |
16 | is_deeply $data->{resources}, |
b18174b8 |
17 | [[user => 'foo'], |
18 | [exec => 'ls -lha'], |
19 | [file => '/home/foo/quux'], |
20 | [package => 'baz'], |
21 | [group => 'bar'], |
0c7501ff |
22 | [__error__ => 'invalid'], |
b18174b8 |
23 | [foo => 'bar']], |
24 | 'resources parsing'; |
25 | |
26 | done_testing; |