File: Functions.t

package info (click to toggle)
libfile-spec-perl 3.3100-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 596 kB
  • ctags: 824
  • sloc: perl: 4,184; makefile: 2
file content (10 lines) | stat: -rw-r--r-- 244 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
 
#!/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$/';