6 #****x* SystemTest/header_test_pl
8 # Test if robodoc recognizes all the different headers in the
9 # various languages that robodoc supports. The input file for this
10 # test is generated with the makefile entry header_test
14 ROBOTest::start("Header Test");
16 # We scan the output file for the headers.
17 # Each header has a name item with the text
18 # testmark <number> testmark
19 # the name of each header has the form
21 # We compute the sum of all the numbers.
23 # There are 15 headers numbered 1 .. 15
25 foreach my $n (1 .. 15) {
30 while (my $line = <>) {
31 # The numbers between the marks.
32 if ($line =~ m/<PRE\S+\s+testmark\s+(\d+)\s/i) {
35 # These numbers in the names, listed in the table
37 if ($line =~ m/<A HREF[^\/]+\/Header_(\d+)<\/A>/i) {
42 # Does each header number occur twice?
43 ROBOTest::assert( $sum == (2 * $checksum) );