1N/A chdir 't' if -d 't'; 1N/A '' : 'not '),
"ok 1\n";
1N/A# set fstype -- should replace non-null default 1N/A '' : 'not '),
"ok 2\n";
1N/A '' : 'not '),
"ok 4\n";
1N/A# set fstype -- should replace non-null default 1N/A '' : 'not '),
"ok 8\n";
1N/A '' : 'not '),
"ok 10\n";
1N/A '' : 'not '),
"ok 11\n";
1N/A '' : 'not '),
"ok 12\n";
1N/A# set fstype -- should replace non-null default 1N/A '' : 'not '),
"ok 16\n";
1N/A print "not ok 17 |$base|$path|$type|\n"; 1N/Aprint +(dirname('A:\\') eq 'A:\\' ? '' : 'not '),"ok 20\n"; 1N/Aprint +(dirname('arma\\') eq '.' ? '' : 'not '),"ok 21\n"; 1N/A# Yes "/" is a legal path separator under MSDOS 1N/A# set fstype -- should replace non-null default 1N/Aprint +(File::Basename::fileparse_set_fstype('MacOS') eq 'MSDOS' ? 1N/A print "not ok 24 |$base|$path|$type|\n"; 1N/Aprint +(dirname(':arma:') eq ':' ? '' : 'not '),"ok 29\n"; 1N/Aprint +(dirname(':arma') eq ':' ? '' : 'not '),"ok 30\n"; 1N/Aprint +(dirname('arma') eq ':' ? '' : 'not '),"ok 32\n"; 1N/Aprint +(dirname(':') eq ':' ? '' : 'not '),"ok 33\n"; 1N/A# Check quoting of metacharacters in suffix arg by basename() 1N/A# extra tests for a few specific bugs 1N/AFile::Basename::fileparse_set_fstype 'MSDOS'; 1N/A# perl5.003_18 gives C:/perl/.\ 1N/A# perl5.003_18 gives C:\perl\ 1N/AFile::Basename::fileparse_set_fstype 'UNIX'; 1N/A# perl5.003_18 gives '.' 1N/Aprint +(dirname('/perl/') eq '/' ? '' : 'not '), "ok 38\n"; 1N/A# The empty tainted value, for tainting strings 1N/Amy $TAINT = substr($^X, 0, 0); 1N/A# How to identify taint when you see it 1N/Asub any_tainted (@) { 1N/A not eval { join("",@_), kill 0; 1 }; 1N/Asub all_tainted (@) { 1N/A for (@_) { return 0 unless tainted $_ } 1N/Aprint +(tainted(dirname($TAINT.'/perl/lib//')) ? '' : 'not '), "ok 40\n";