[p5sagit/p5-mst-13.2.git] / lib / File / Spec / t / Functions.t

#!/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$/';
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
e021ab8e	10	ok case_tolerant(), '/^0\|1$/';