t/lib/filefunc.t

   1 #!./perl
   2
   3 BEGIN {
   4     $^O = '';
   5     chdir 't' if -d 't';
   6     unshift @INC, '../lib';
   7 }
   8
   9 print "1..1\n";
  10
  11 use File::Spec::Functions;
  12
  13 if (catfile('a','b','c') eq 'a/b/c') {
  14     print "ok 1\n";
  15 } else {
  16     print "not ok 1\n";
  17 }