7 my (@output) = read_text_file ("$test.output");
8 common_checks (@output);
10 @output = get_core_output (@output);
12 while (my ($m) = $output[0] =~ /^\(multi-oom\) begin (\d+)$/) {
13 fail "Child process $m started out of order.\n" if $m != $n;
17 fail "Only $n child process(es) started.\n" if $n < 15;
19 # There could be a death notice for a process that didn't get
20 # fully loaded, and/or notices from the loader.
22 && ($output[0] =~ /^multi-oom: exit\(-1\)$/
23 || $output[0] =~ /^load: /)) {
28 fail "Output ended unexpectedly before process $n finished.\n"
32 chomp ($_ = shift @output);
33 fail "Found '$_' expecting 'end' message.\n" if !/^\(multi-oom\) end/;
34 fail "Child process $n ended out of order.\n"
35 if !/^\(multi-oom\) end $n$/;
37 chomp ($_ = shift @output);
38 fail "Kernel didn't print proper exit message for process $n.\n"
39 if !/^multi-oom: exit\($n\)$/;
41 fail "Spurious output at end: '$output[0]'.\n" if @output;