use File::Spec::Functions;
BEGIN { require './test.pl'; }
-plan tests => 706;
+plan tests => 712;
$| = 1;
sub tainted ($) {
any_tainted @_;
}
-sub all_tainted (@) {
- for (@_) { return 0 unless tainted $_ }
- 1;
-}
sub is_tainted {
my $thing = shift;
ok(not any_tainted @list);
taint_these @list[1,3,5,7,9];
ok(any_tainted @list);
- ok(all_tainted @list[1,3,5,7,9]);
+ is_tainted($_) foreach @list[1,3,5,7,9];
ok(not any_tainted @list[0,2,4,6,8]);
($foo) = $foo =~ /(.+)/;
# Certain system variables should be tainted
{
- ok(all_tainted $^X, $0);
+ is_tainted($^X);
+ is_tainted($0);
}
# Results of matching should all be untainted
{
my $foo = $TAINT0;
my $bar = $foo;
- ok(all_tainted $foo, $bar);
+ is_tainted($foo);
+ is_tainted($bar);
is_tainted($foo = $bar);
is_tainted($bar = $bar);
is_tainted($bar += $bar);