Source/Test/filter_test_2.pl

   1 #!/usr/bin/perl -w
   2 #
   3 #
   4 # $Id: filter_test_2.pl,v 1.1 2004/08/20 21:52:47 gumpu Exp $
   5 #
   6
   7 use strict;
   8 use ROBOTest;
   9 ROBOTest::start("File Filter Test 2");
  10 ROBOTest::assertFile("Doc3/robo_functions.html");
  11 ROBOTest::assertFile("Doc3/accept_c.html");
  12 ROBOTest::assertFile("Doc3/accept_pl.html");
  13 ROBOTest::assertDir("Doc3/AcceptDir");
  14 ROBOTest::assertFile("Doc3/AcceptDir/accept_h.html");
  15 ROBOTest::assertNotDir("Doc3/ToBeIgnored");
  16 ROBOTest::assertNotFile("Doc3/ignore_ign.html");
  17 ROBOTest::assertNotFile("Doc3/ignore_xxx.html");
  18 ROBOTest::finish;
  19