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