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;