more explicit ipc to work around child-exec issues

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

use strictures 1;
use Test::More;

use System::Introspector::Probe::FileHandles;

my $probe = System::Introspector::Probe::FileHandles->new;

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');

do {
    my $fail_probe = System::Introspector::Probe::FileHandles->new(
        lsof_command => 'lsoffakethisonedoesntexistatleastihopenot',
    );
    my $fail_data;
    $fail_data = $fail_probe->gather;
    ok $fail_data, 'received data';
};

done_testing;