Source/Test/nosource_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("--nosource Test");
  14 my $checksum = 0;
  15
  16 while (my $line = <>) {
  17     if ($line =~ m/should\snot\sappear/) {
  18         ++$checksum;
  19     }
  20 }
  21 ROBOTest::assert( $checksum == 0 );
  22 ROBOTest::finish;
  23