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