[SOLVED] CS sub check_alarm {

sub check_alarm {
my ($iterations) = @_;
our ($test);

@output = read_text_file ($test.output);
common_checks (run, @output);

my (@products);
for (my ($i) = 0; $i < $iterations; $i++) {for (my ($t) = 0; $t < 5; $t++) {push (@products, ($i + 1) * ($t + 1) * 10);}}@products = sort {$a <=> $b} @products;

local ($_);
foreach (@output) {
fail $_ if /out of order/i;

my ($p) = /product=(d+)$/;
next if !defined $p;

my ($q) = shift (@products);
fail Too many wakeups.
if !defined $q;
fail Out of order wakeups ($p vs. $q).
if $p != $q; # FIXME
}
fail scalar (@products) . fewer wakeups than expected.

if @products != 0;
pass;
}

1;