1 2 3 4 5 6 7 8 9
# -*- perl -*- use strict; use warnings; use tests::tests; check_expected (IGNORE_USER_FAULTS => 1, [<<'EOF']); (bad-write) begin bad-write: exit(-1) EOF pass;