1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
use Test::More tests => 8;
BEGIN { use_ok('Taint::Runtime') };
Taint::Runtime->import(qw(taint_start
taint_enabled
taint
untaint
is_tainted
));
ok(! taint_enabled(), "Taint is Not on yet");
taint_start();
ok(taint_enabled(), "Taint is On");
my $data = "foo";
ok(! is_tainted($data), "No false positive on is_tainted");
my $copy = taint($data);
ok(is_tainted($copy), "Made a tainted copy");
taint(\$data);
ok(is_tainted($data), "Tainted it directly");
$copy = untaint($data);
ok(! is_tainted($copy), "Made a clean copy");
untaint(\$data);
ok(! is_tainted($data), "Clean it directly");
|
