Move PathTools from cpan/ to dist/

[perl5.git] / dist / Cwd / t / Functions.t

diff --git a/dist/Cwd/t/Functions.t b/dist/Cwd/t/Functions.t
new file mode 100644 (file)
index 0000000..457f53c
--- /dev/null
+++ b/dist/Cwd/t/Functions.t
@@ -0,0 +1,10 @@
+#!/usr/bin/perl -w
+
+use Test;
+use File::Spec::Functions qw/:ALL/;
+plan tests => 2;
+
+ok catfile('a','b','c'), File::Spec->catfile('a','b','c');
+
+# seems to return 0 or 1, so see if we can call it - 2003-07-07 tels
+ok case_tolerant(), '/^0|1$/';