1N/A#!/usr/bin/perl -w
1N/A
1N/Ause Test;
1N/Ause File::Spec::Functions qw/:ALL/;
1N/Aplan tests => 2;
1N/A
1N/Aok catfile('a','b','c'), File::Spec->catfile('a','b','c');
1N/A
1N/A# seems to return 0 or 1, so see if we can call it - 2003-07-07 tels
1N/Aok case_tolerant(), '/^0|1$/';