Source/Test/internalheader_test2.pl

   1 #!/usr/bin/perl -w
   2
   3 #
   4 # Test to see if robodoc handles all the internal
   5 # headers and the options to go with it correctly.
   6 #
   7
   8 use strict;
   9 use ROBOTest;
  10
  11 ROBOTest::start("Internalheader Test 2");
  12
  13 # There are 8 internal headers numbered 1 .. 8 in the .dat file
  14 # None of them should occur in the output.
  15 my $checksum = 0;
  16
  17 # We now extract them and compute the sum of all the numbers
  18 my %seen = ();
  19
  20 while (my $line = <>) {
  21     if ($line =~ m/it_(\d+)</) {
  22         $seen{$1}++;
  23     }
  24 }
  25
  26 my $sum = 0;
  27 foreach my $key (keys %seen) {
  28     $sum += $key;
  29 }
  30 ROBOTest::assert( $sum == $checksum);
  31 ROBOTest::finish;