sub checkit {
    my ($tests, $filename) = @_;
    my @testList = split ",", $tests;
    my $teststr  = shift(@testList) . " '" . $filename . "'" . 
                   " && " . join (' _ && ', @testList) . " _";
    return eval ("($teststr)");
    return 1;
}