This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move PathTools from cpan/ to dist/
[perl5.git] / dist / Cwd / t / Functions.t
1 #!/usr/bin/perl -w
2
3 use Test;
4 use File::Spec::Functions qw/:ALL/;
5 plan tests => 2;
6
7 ok catfile('a','b','c'), File::Spec->catfile('a','b','c');
8
9 # seems to return 0 or 1, so see if we can call it - 2003-07-07 tels
10 ok case_tolerant(), '/^0|1$/';