home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / t / lib / filefunc.t < prev    next >
Text File  |  1999-07-20  |  227b  |  18 lines
  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. }
  18.