This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Convert File::Spec's remaining tests to Test::More from Test.
[perl5.git] / dist / Cwd / t / Functions.t
1 #!/usr/bin/perl -w
2
3 use Test::More tests => 3;
4 BEGIN {use_ok('File::Spec::Functions', ':ALL');}
5
6 is(catfile('a','b','c'), File::Spec->catfile('a','b','c'));
7
8 # seems to return 0 or 1, so see if we can call it - 2003-07-07 tels
9 like(case_tolerant(), qr/\A(?:0|1)\z/);