more explicit ipc to work around child-exec issues

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

diff --git a/t/filehandles.t b/t/filehandles.t
index f740318..a9562ea 100644 (file)
--- a/t/filehandles.t
+++ b/t/filehandles.t
@@ -12,4 +12,13 @@ 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;