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