ext/Cwd/t/taint.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

#!./perl -Tw
# Testing Cwd under taint mode.

BEGIN {
    chdir 't' if -d 't';
    @INC = '../lib';
}

use Cwd;
use Test::More tests => 2;

# The normal kill() trick is not portable.
sub is_tainted { 
    return ! eval { eval("#" . substr(join("", @_), 0, 0)); 1 };
}

my $cwd;
eval { $cwd = getcwd; };
is( $@, '',                 'getcwd() does not explode under taint mode' );
ok( is_tainted($cwd),       "its return value is tainted" );