2 # Testing Cwd under taint mode.
6 unshift @INC, '../lib';
11 use Test::More tests => 16;
12 use Scalar::Util qw/tainted/;
14 my @Functions = qw(getcwd cwd fastcwd fastgetcwd
15 abs_path fast_abs_path
16 realpath fast_realpath
19 foreach my $func (@Functions) {
22 eval { $cwd = &{'Cwd::'.$func} };
23 is( $@, '', "$func() does not explode under taint mode" );
24 ok( tainted($cwd), "its return value is tainted" );