5 #****x* SystemTest/link_test_pl
7 # Test if ROBODoc correctly creates links between words
10 # There are four links, link_1_, _link_2_, link3, and -link4
11 # they should each occur four times in a <A HREF></A>
16 ROBOTest::start("Link Test");
19 $count{"link_1_"} = 0;
20 $count{"_link_2_"} = 0;
25 while (my $line = <>) {
26 if ($line =~ m#<A\sHREF=[^>]+>([^<]+)</A>#i) {
33 ($count{"link_1_"} == 4) and
34 ($count{"_link_2_"} == 4) and
35 ($count{"link3"} == 4) and
36 ($count{"-link4"} == 4) and
37 ($count{"Llink5"} == 4),