Commit | Line | Data |
b18174b8 |
1 | use strictures 1; |
2 | use Test::More; |
3 | use FindBin; |
4 | |
5 | use System::Introspector::Puppet; |
6 | |
7 | my $probe = System::Introspector::Puppet->new( |
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; |
13 | is_deeply $data->{classes}, |
14 | [qw( user::foo settings user::foo user::bar )], |
15 | 'classes parsing'; |
16 | is_deeply $data->{resources}, |
17 | [[user => 'foo'], |
18 | [exec => 'ls -lha'], |
19 | [file => '/home/foo/quux'], |
20 | [package => 'baz'], |
21 | [group => 'bar'], |
22 | [error => 'invalid'], |
23 | [foo => 'bar']], |
24 | 'resources parsing'; |
25 | |
26 | done_testing; |