From: Robert 'phaylon' Sedlacek <r.sedlacek@shadowcat.co.uk>
Date: Wed, 9 May 2012 22:29:05 +0000 (+0000)
Subject: test for handles key in result
X-Git-Tag: v0.001_001~99
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=df8adc951e1a536f5dd4da40392f9943d3f4c93d;p=scpubgit%2FSystem-Introspector.git

test for handles key in result
---

diff --git a/t/filehandles.t b/t/filehandles.t
index caa63fe..015b31f 100644
--- 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;