#!/usr/bin/perl -w

use strict;
use ROBOTest;

ROBOTest::start("HTML Special Char Test");

# In the headers there are three bad names
# bad1&bad1
# bad2>>bad2
# and
# bad3<<bad3
#
# These should all have been escaped and no longer occur
# in the output

my $count = 0;
while (my $line = <>) {
    if ($line =~ m/bad\d([^b]+)bad/) {
        my $string = $1;
        if (($string eq ">>") or
            ($string eq "<<") or
            ($string eq "&")) {
            ++$count;
        }
    }
}

ROBOTest::assert($count == 0);
ROBOTest::finish;