Commit | Line | Data |
---|---|---|
e021ab8e | 1 | #!/usr/bin/perl -w |
f505c983 | 2 | |
e021ab8e | 3 | use Test; |
4 | use File::Spec::Functions qw/:ALL/; | |
5 | plan tests => 2; | |
f505c983 | 6 | |
e021ab8e | 7 | ok catfile('a','b','c'), File::Spec->catfile('a','b','c'); |
f505c983 | 8 | |
e021ab8e | 9 | # seems to return 0 or 1, so see if we can call it - 2003-07-07 tels |
10 | ok case_tolerant(), '/^0|1$/'; |