7 my (@output) = read_text_file ("$test.output");
9 common_checks (@output);
11 my ($thread_cnt) = 16;
14 my (@t) = (-1) x $thread_cnt;
16 my (@iterations) = grep (/iteration:/, @output);
17 fail "No iterations found in output.\n" if !@iterations;
19 my (@numbering) = $iterations[0] =~ /(\d+)/g;
20 fail "First iteration does not list exactly $thread_cnt threads.\n"
21 if @numbering != $thread_cnt;
23 my (@sorted_numbering) = sort { $a <=> $b } @numbering;
24 for my $i (0...$#sorted_numbering) {
25 if ($sorted_numbering[$i] != $i) {
26 fail "First iteration does not list all threads "
27 . "0...$#sorted_numbering\n";
31 for my $i (1...$#iterations) {
32 if ($iterations[$i] ne $iterations[0]) {
33 fail "Iteration $i differs from iteration 0\n";
37 fail "$iter_cnt iterations expected but " . scalar (@iterations) . " found\n"
38 if $iter_cnt != @iterations;