Source/Test/filter_test_1.pl

   1 #!/usr/bin/perl -w
   2 #
   3 #
   4 # $Id: filter_test_1.pl,v 1.2 2004/08/20 21:29:00 gumpu Exp $
   5 #
   6
   7 use strict;
   8 use ROBOTest;
   9 ROBOTest::start("File Filter Test 1");
  10 ROBOTest::assertFile("Doc1/robo_functions.html");
  11 ROBOTest::assertFile("Doc1/test2_c.html");
  12 ROBOTest::assertDir("Doc1/ToBeAccepted");
  13 ROBOTest::assertNotDir("Doc1/ToBeIgnored");
  14 ROBOTest::assertNotFile("Doc1/test1_pas.html");
  15 ROBOTest::assertNotFile("Doc1/README.html");
  16 ROBOTest::finish;
  17