t/puppet.t

   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;