+TEST "shouldn't be able to slurp failed pipe";
+
+eval{slurp "-|", "non-existent_prog"}
+       ? ok 0, $desc
+       : like $@,
+                  qr/^Can't open '-|non-existent_prog'/,
+                  $desc;