Source/Test/ignore_test.pl

   1 #!/usr/bin/perl -w
   2
   3 #
   4 # Test whether robodoc can handle the --lock mode
   5 # In the lock mode it will lock on to one kind of header marker
   6 # per file and one kind of remark marker per header.  All
   7 # other ones should be skipped.
   8 #
   9
  10 use strict;
  11 use ROBOTest;
  12
  13 ROBOTest::start("ignore items: Test");
  14 my $checksum_not_appear = 0;
  15 my $checksum_appear = 0;
  16 while (my $line = <>) {
  17     if ($line =~ m/not\sbe\sdisplayed/) {
  18         ++$checksum_not_appear;
  19     }
  20     if ( $line =~ m/appear/ ) {
  21         ++$checksum_appear;
  22     }
  23 }
  24 ROBOTest::assert( $checksum_not_appear == 0 );
  25 ROBOTest::assert( $checksum_appear == 2 );
  26 ROBOTest::finish;
  27