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