Help for this page

Select Code to Download

Select or download this

foreach my $currentTestID (keys %$tests)
{
    $tests->{$currentTestID}{validated} = validate($tests->{$currentTe
+stID});
}

Select or download this

sub doValidatedTests
{
    my $tests = shift;
    doTest($_) foreach ( grep {$tests{$_}{validated}} keys %$tests );
}