import PathTools-3.62PathTools-3-62

1 files changed, 19 insertions, 0 deletions

diff --git a/cpan/dist/PathTools/t/Functions.t b/cpan/dist/PathTools/t/Functions.t
new file mode 100644
index 00000000..122c529a
--- /dev/null
+++ b/cpan/dist/PathTools/t/Functions.t
@@ -0,0 +1,19 @@
+#!/usr/bin/perl -w
+
+use Test::More tests => 15;
+BEGIN {use_ok('File::Spec::Functions', ':ALL');}
+
+is(canonpath('a/b/c'), File::Spec->canonpath('a/b/c'));
+is(case_tolerant(), File::Spec->case_tolerant());
+is(catdir(), File::Spec->catdir());
+is(catdir('a'), File::Spec->catdir('a'));
+is(catdir('a','b'), File::Spec->catdir('a','b'));
+is(catdir('a','b','c'), File::Spec->catdir('a','b','c'));
+is(catfile(), File::Spec->catfile());
+is(catfile('a'), File::Spec->catfile('a'));
+is(catfile('a','b'), File::Spec->catfile('a','b'));
+is(catfile('a','b','c'), File::Spec->catfile('a','b','c'));
+is(curdir(), File::Spec->curdir());
+is(devnull(), File::Spec->devnull());
+is(rootdir(), File::Spec->rootdir());
+is(updir(), File::Spec->updir());