1#!/usr/bin/perl -w 2 3use Test; 4use File::Spec::Functions qw/:ALL/; 5plan tests => 2; 6 7ok 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 10ok case_tolerant(), '/^0|1$/'; 11