6 #****x* SystemTest/header_test5_pl
8 # ROBODoc allows a user to define that some items should
9 # work similar to the source item. These tests check wether
14 ROBOTest::start("Source Item Test");
16 # We scan the output file for the headers.
17 # In each header there are items that contains
23 # in such locations that they end-up in the final
24 # documentation. We scan the final documentation
25 # and collect and the numbers between the test
28 my $checksum = 1 + 2 + 3 + 4 + 5;
31 my $sum_empty_remark = 0;
33 while (my $line = <>) {
34 # The numbers between the marks.
35 if ( $line =~ m/testmark\s(\d+)/ ) {
38 # There should be no empty '/*' or '*/' in the documentation
39 # robodoc is supposed to remove these from the begin and
40 # end of a 'source' item.
43 if ( $line =~ m/^\s*\/\*\s*$/ ) {
47 if ( $line =~ m/^\s\*\/\s*$/ ) {
52 # There are 4 headers so:
53 ROBOTest::assert( $sum == (4 * $checksum), "All source is included" );
54 ROBOTest::assert( $sum_empty_remark == 0, "No empty remark begin or ends" );