t/lib/filespec.t

   1 #!/usr/bin/perl
   2
   3 print "1..4\n";
   4
   5 BEGIN {
   6         $^O = '';
   7 }
   8
   9 use File::Spec;
  10
  11
  12 if (File::Spec->catfile('a','b','c') eq 'a/b/c') {
  13         print "ok 1\n";
  14 } else {
  15         print "not ok 1\n";
  16 }
  17
  18 use File::Spec::OS2;
  19
  20 if (File::Spec::OS2->catfile('a','b','c') eq 'a/b/c') {
  21         print "ok 2\n";
  22 } else {
  23         print "not ok 2\n";
  24 }
  25
  26 use File::Spec::Win32;
  27
  28 if (File::Spec::Win32->catfile('a','b','c') eq 'a\b\c') {
  29         print "ok 3\n";
  30 } else {
  31         print "not ok 3\n";
  32 }
  33
  34 use File::Spec::Mac;
  35
  36 if (File::Spec::Mac->catfile('a','b','c') eq 'a:b:c') {
  37         print "ok 4\n";
  38 } else {
  39         print "not ok 4\n";
  40 }
  41