t/filehandles.t

   1 use strictures 1;
   2 use Test::More;
   3
   4 use System::Introspector::FileHandles;
   5
   6 my $probe = System::Introspector::FileHandles->new;
   7 my $data  = $probe->gather;
   8
   9 ok(@$data, 'received filehandle data');
  10 ok(not(grep { not keys %$_ } @$data), 'keys in all entries');
  11
  12 done_testing;