source: /cluster/svnroot/bccd-ng/branches/leemasa-devel/trees/home/bccd/tests/bccd_test_suite.pl @ 2493

#Automagic BCCD test suite!
#Runs test scripts and compares with control output in BCCD.
#Emails differences to bccd-developers@bccd.net

use strict;
use File::Path;

my $testdir = "test";

sub generate_storeOutput{
        (my $testname) = @_;
        return ">> $testdir/$testname.dat 2>> $testdir/$testname.dat";
}

sub get_syncdir( ){
        (my $tmpoutput) = @_;
        open(FILE, "<$tmpoutput") or die "could not open temporary file: $!";
        my $tmp = "";
        while ($tmp !~ m/\//){
                $tmp = readline FILE;
        }
        my $startindex = index($tmp,"/",);
        my $endindex = index($tmp," ",$startindex);
        my $syncdir = substr($tmp,$startindex,$endindex-1);
        close FILE;
        unlink("tmpdir") or die "Could not delete temporary directory: $!";
        return $syncdir;
        }

my $testname;
my $storeOutput;

if (-e $testdir){
  rmtree($testdir) or die "Could not replace existing test directory: $!";
  }
mkdir($testdir) or die "Could not make test directory: $!";

### GalaxSee test ###
$testname = "Gal";
$storeOutput = generate_storeOutput($testname);
system("cd ~/Gal                        $storeOutput
        make clean                      $storeOutput
        make                            $storeOutput
        mpirun -np 1 ~/Gal/GalaxSee     $storeOutput
        mpirun -np 2 ~/Gal/GalaxSee     $storeOutput");
#system("bccd-syncdir . ~/machines      &> tmpoutput");

#system("cat tmpoutput $storeOutput");

#get path to temporary directory
#get_syncdir("tmpoutput");
#unlink "tmpoutput";

#system("mpirun -machinefile ~/machines\
#       -np 2 $tempDirectory/GalaxSee   $storeOutput");

### Life test ###
$testname = "Life";
$storeOutput = generate_storeOutput($testname);
system("cd ~/Life               $storeOutput
make clean                      $storeOutput
make                            $storeOutput
mpirun -np 1 ~/Life/Life        $storeOutput
mpirun -np 2 ~/Life/Life        $storeOutput");
#bccd-syncdir . ~/machines      &> tmpoutput");
#system("cat tmpoutput $storeOutput");

#get path to temporary directory
#get_syncdir("tmpoutput");
#unlink "tmpoutput";

#print "$tempDirectory\n";
#system("mpirun -machinefile ~/machines\
#       -np 2 $tempDirectory/Life       $storeOutput");