5 @output = read_text_file ("$test.output");
6 common_checks ("run", @output);
9 for (my ($i) = 0; $i < $iterations; $i++) {
10 for (my ($t) = 0; $t < 5; $t++) {
11 push (@products, ($i + 1) * ($t + 1) * 10);
14 @products = sort {$a <=> $b} @products;
18 fail $_ if /out of order/i;
20 my ($p) = /product=(\d+)$/;
23 my ($q) = shift (@products);
24 fail "Too many wakeups.\n" if !defined $q;
25 fail "Out of order wakeups ($p vs. $q).\n" if $p != $q; # FIXME
27 fail scalar (@products) . " fewer wakeups than expected.\n"