Source/Test/user_specified_css_file_test.pl

   1 #!/usr/bin/perl -w
   2
   3 #
   4 # This tests the option --css
   5 #
   6 #
   7 # $Id: user_specified_css_file_test.pl,v 1.2 2003/08/31 09:29:28 gumpu Exp $
   8
   9 use strict;
  10 use ROBOTest;
  11 ROBOTest::start("Option --css Test");
  12 #
  13 #
  14 # The file user_css.css
  15 # contains twice the word ROBO_UnitTest
  16 # It should therefore also appear twice
  17 # in the robodoc.css file.
  18 #
  19 my $sum = 0;
  20 while (my $line = <>) {
  21     if ( $line =~ m/ROBO_UnitTest/ ) {
  22         $sum++;
  23     }
  24 }
  25
  26 ROBOTest::assert( $sum == 2 );
  27 ROBOTest::finish;
  28