Source/Test/html_specialchar_test.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use ROBOTest;
   5
   6 ROBOTest::start("HTML Special Char Test");
   7
   8 # In the headers there are three bad names
   9 # bad1&bad1
  10 # bad2>>bad2
  11 # and
  12 # bad3<<bad3
  13 #
  14 # These should all have been escaped and no longer occur
  15 # in the output
  16
  17 my $count = 0;
  18 while (my $line = <>) {
  19     if ($line =~ m/bad\d([^b]+)bad/) {
  20         my $string = $1;
  21         if (($string eq ">>") or
  22             ($string eq "<<") or
  23             ($string eq "&")) {
  24             ++$count;
  25         }
  26     }
  27 }
  28
  29 ROBOTest::assert($count == 0);
  30 ROBOTest::finish;