7 my (@output) = read_text_file ("$test.output");
9 common_checks ("run", @output);
11 fail "missing 'begin' message\n"
12 if !grep ($_ eq '(halt) begin', @output);
13 fail "found 'fail' message--halt didn't really halt\n"
14 if grep ($_ eq '(halt) fail', @output);