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