sub getAntHome() {
    my ($testDir) = @_;
    my $modulesDir = File::Spec->catfile($testDir, "modules");

    my $foundAnt = 0;
    my $antDir;

    opendir (DIR, $modulesDir) || die "Error in opening dir $modulesDir\n";
    while (($filename = readdir(DIR)) and ($foundAnt == 0)){
        my $temp1 = rindex $filename, "org.apache.ant_", 1;
        if ($temp1 == 0) {
            $antDir = $filename;
            $foundAnt = 1;
        }
    }
    closedir(DIR);

    if ($foundAnt) {
        return File::Spec->catfile($testDir, $antDir);
    }
}