use reusable I/O utils, more solid error handling for Puppet probe

[scpubgit/System-Introspector.git] / t / puppet.t

diff --git a/t/puppet.t b/t/puppet.t
index 0d8d206..3a56c55 100644 (file)
--- a/t/puppet.t
+++ b/t/puppet.t
@@ -10,10 +10,10 @@ my $probe = System::Introspector::Puppet->new(
 );
 
 my $data = $probe->gather;
-is_deeply $data->{classes},
+is_deeply $data->{classes}{list},
     [qw( user::foo settings user::foo user::bar )],
     'classes parsing';
-is_deeply $data->{resources},
+is_deeply $data->{resources}{list},
     [[user => 'foo'],
      [exec => 'ls -lha'],
      [file => '/home/foo/quux'],