1 2 3 4 5 6 7 8 9
# -*- perl -*- use strict; use warnings; use tests::tests; check_expected ([<<'EOF']); (create-null) begin create-null: exit(-1) EOF pass;