tests/libtest/notexists.pl

   1 #!/usr/bin/env perl
   2 # Check that given arguments do not exist on filesystem.
   3 my $code = 0;
   4 if ($#ARGV < 0) {
   5     print "Usage: $0 file1 [fileN]\n";
   6     exit 2;
   7 }
   8 while (@ARGV) {
   9     my $fname = shift @ARGV;
  10     if (-e $fname) {
  11         print "Found '$fname' when not supposed to exist.\n";
  12         $code = 1;
  13     }
  14 }
  15 exit $code;