4 ROBOTest::start("Indented Header Test");
6 # There are 12 headers numbered 1 .. 12
8 foreach my $n (1 .. 12) {
12 # Now we scan the output file for the headers
13 # The should occur after a and compute the sum
14 # of the header numbers
16 # count the number of testmarkers and the number of
17 # Headers in <A HREF> blocks (table of content)
18 # and between the word "testmark" in the NAME item
19 # We extract the header number and compute the sum.
20 while (my $line = <>) {
21 if ($line =~ m/<PRE\S+\s+testmark\s+(\d+)\s/i) {
24 # These are in the table of content
25 if ($line =~ m/<A HREF[^\/]+\/Header_(\d+)<\/A>/i) {
29 # Dus each header number occur twice?
30 ROBOTest::assert($sum == 2 * $checksum);