[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;