Source/Test/remarkmarker_test.pl

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use ROBOTest;
   5
   6 ROBOTest::start("RemarkMarker Test");
   7
   8 #
   9 # The ,res should look like
  10 #   LINE 1
  11 #   LINE 2
  12 #   LINE 3
  13 #   etc
  14 #   We extract all the numbers and store them
  15 #   in a hash
  16 #
  17 my %count = ();
  18 while (my $line = <>) {
  19     if ($line =~ m/\s*LINE\s+(\d+)\s/) {
  20         $count{$1}++;
  21     }
  22 }
  23
  24 # there should be 15 different lines
  25 #
  26 my $number_of_lines = scalar(keys %count);
  27
  28 ROBOTest::assert($number_of_lines == 15, "header types");
  29 ROBOTest::finish;