4 use System::Introspector::Probe::FileHandles;
6 my $probe = System::Introspector::Probe::FileHandles->new;
8 my $data = $probe->gather;
9 ok($data, 'received result');
11 my $handles = $data->{handles};
12 ok($handles, 'received filehandle data');
13 ok(not(grep { not keys %$_ } @$handles), 'keys in all entries');
16 my $fail_probe = System::Introspector::Probe::FileHandles->new(
17 lsof_command => 'lsoffakethisonedoesntexistatleastihopenot',
20 $fail_data = $fail_probe->gather;
21 ok $fail_data, 'received data';