test for handles key in result

diff --git a/t/filehandles.t b/t/filehandles.t
index caa63fe..015b31f 100644 (file)
--- a/t/filehandles.t
+++ b/t/filehandles.t
@@ -4,9 +4,12 @@ use Test::More;
 use System::Introspector::FileHandles;
 
 my $probe = System::Introspector::FileHandles->new;
-my $data  = $probe->gather;
 
-ok(@$data, 'received filehandle data');
-ok(not(grep { not keys %$_ } @$data), 'keys in all entries');
+my $data = $probe->gather;
+ok($data, 'received result');
+
+my $handles = $data->{handles};
+ok($handles, 'received filehandle data');
+ok(not(grep { not keys %$_ } @$handles), 'keys in all entries');
 
 done_testing;