2 # Testing Cwd under taint mode.
10 use Test::More tests => 6;
11 use Scalar::Util qw/tainted/;
14 eval { $cwd = getcwd; };
15 is( $@, '', 'getcwd() does not explode under taint mode' );
16 ok( tainted($cwd), "its return value is tainted" );
19 is( $@, '', 'cwd() does not explode under taint mode' );
20 ok( tainted($cwd), "its return value is tainted" );
22 eval { $cwd = fastcwd; };
23 is( $@, '', 'fastcwd() does not explode under taint mode' );
24 ok( tainted($cwd), "its return value is tainted" );