1*6fb12b70Safresh1#!/usr/bin/perl -w 2*6fb12b70Safresh1 3*6fb12b70Safresh1use Test::More tests => 15; 4*6fb12b70Safresh1BEGIN {use_ok('File::Spec::Functions', ':ALL');} 5*6fb12b70Safresh1 6*6fb12b70Safresh1is(canonpath('a/b/c'), File::Spec->canonpath('a/b/c')); 7*6fb12b70Safresh1is(case_tolerant(), File::Spec->case_tolerant()); 8*6fb12b70Safresh1is(catdir(), File::Spec->catdir()); 9*6fb12b70Safresh1is(catdir('a'), File::Spec->catdir('a')); 10*6fb12b70Safresh1is(catdir('a','b'), File::Spec->catdir('a','b')); 11*6fb12b70Safresh1is(catdir('a','b','c'), File::Spec->catdir('a','b','c')); 12*6fb12b70Safresh1is(catfile(), File::Spec->catfile()); 13*6fb12b70Safresh1is(catfile('a'), File::Spec->catfile('a')); 14*6fb12b70Safresh1is(catfile('a','b'), File::Spec->catfile('a','b')); 15*6fb12b70Safresh1is(catfile('a','b','c'), File::Spec->catfile('a','b','c')); 16*6fb12b70Safresh1is(curdir(), File::Spec->curdir()); 17*6fb12b70Safresh1is(devnull(), File::Spec->devnull()); 18*6fb12b70Safresh1is(rootdir(), File::Spec->rootdir()); 19*6fb12b70Safresh1is(updir(), File::Spec->updir()); 20