1 2 3 4 5 6 7 8 9 10 11 12 13
# -*- perl -*- use strict; use warnings; use tests::tests; check_expected ([<<'EOF', <<'EOF']); (wait-bad-pid) begin (wait-bad-pid) end wait-bad-pid: exit(0) EOF (wait-bad-pid) begin wait-bad-pid: exit(-1) EOF pass;