5 ROBOTest::start("Item Test");
8 # In the .dat file there are 43 items numbered from 1 .. 43
9 # The number is located between the words testmark in the item text
12 foreach my $n (1 .. 43) {
16 # We now scan the .res file find the item number, compute the
17 # sum, and see if this is equal to the checksum...
19 while (my $line = <>) {
20 if ($line =~ m/<PRE\S+\s+testmark\s+(\d+)\s/) {
25 # there should be 43 different items
27 ROBOTest::assert($sum = $checksum, "Are all items there?");