removed unrequired explicit 'list' data levels

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

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