#!/usr/bin/perl -w
use strict;
use ROBOTest;
#****x* SystemTest/link_test_pl
# FUNCTION
# Test if ROBODoc correctly creates links between words
# and headers.
#
# There are four links, link_1_, _link_2_, link3, and -link4
# they should each occur four times in a
# SOURCE
#
ROBOTest::start("Link Test");
my %count = ();
$count{"link_1_"} = 0;
$count{"_link_2_"} = 0;
$count{"link3"} = 0;
$count{"-link4"} = 0;
$count{"Llink5"} = 0;
while (my $line = <>) {
if ($line =~ m#]+>([^<]+)#i) {
my $link_name = $1;
++$count{$link_name};
}
}
ROBOTest::assert(
($count{"link_1_"} == 4) and
($count{"_link_2_"} == 4) and
($count{"link3"} == 4) and
($count{"-link4"} == 4) and
($count{"Llink5"} == 4),
"linking");
#*****