lib/File/Spec/t/Functions.t

   1 #!/usr/bin/perl -w
   2
   3 use Test;
   4 use File::Spec::Functions qw/:ALL/;
   5 plan tests => 2;
   6
   7 ok catfile('a','b','c'), File::Spec->catfile('a','b','c');
   8
   9 # seems to return 0 or 1, so see if we can call it - 2003-07-07 tels
  10 ok case_tolerant(), '/^0|1$/';