6 sub check_process_death {
9 my (@output) = read_text_file ("$test.output");
11 common_checks ("run", @output);
12 @output = get_core_output ("run", @output);
13 fail "First line of output is not `($proc_name) begin' message.\n"
14 if $output[0] ne "($proc_name) begin";
15 fail "Output missing '$proc_name: exit(-1)' message.\n"
16 if !grep ("$proc_name: exit(-1)" eq $_, @output);
17 fail "Output contains '($proc_name) end' message.\n"
18 if grep (/\($proc_name\) end/, @output);