Changeset 2715 in /cluster/svnroot


Ignore:
Timestamp:
Oct 11, 2010 12:23:51 AM (10 years ago)
Author:
skylar
Message:

cleaning up mpi_test (#520)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • bccd-ng/branches/skylar-test_fw/trees/home/bccd/tests/bccd_test_suite.pm

    r2714 r2715  
    44use Carp;
    55use Cwd;
     6use POSIX;
    67
    78# Return lines matching a regex
     
    9495sub mpi_test{
    9596        (my $testdir, my $testname) = @_;
     97        my ($rc,$tempDirectory);
     98        my @cmd;
    9699        print "$testdir/$testname.dat\n";
    97100        open(my $OUTPUT, '>', "$testdir/$testname.dat") or die "could not open data file: $!";
     
    107110#XXX This function is untested from here on.
    108111        if (-e "$ENV{HOME}/machines" and $#{$machines} > 0){
    109                 system("bccd-syncdir . ~/machines       &> tmpoutput");
    110                 system("cat tmpoutput $storeOutput");
     112                @cmd = ('bccd-syncdir','--ni','.',"$ENV{HOME}/machines");
     113                open(my $BCCD_SYNCDIR, '-|', @cmd) or
     114                        croak "Couldn't run @cmd: $!\n";
     115
     116                while(my $line = <$BCCD_SYNCDIR>) {
     117                        if($line =~ m{(/tmp/[\w-_]+)}) {
     118                                $tempDirectory = $1;
     119                        }
     120                }
     121
     122                close($BCCD_SYNCDIR);
    111123
    112124#get path to temporary directory
    113                 if (-s "tmpoutput"){
    114                         my $tempDirectory = get_syncdir("tmpoutput");
    115                         unlink "tmpoutput";
    116                         system("mpirun -machinefile ~/machines\
    117                                 -np 2 $tempDirectory/$testname  $storeOutput");
    118                 } else {
    119                         output ($OUTPUT, "syncdir error.")
     125                @cmd = ('mpirun','-machinefile',"$ENV{HOME}/machines",
     126                                '-np','2',"$tempDirectory/$testname",$storeOutput);
     127                system(@cmd);
     128                $rc = WEXITSTATUS($?);
     129                if($rc) {
     130                        return $rc;
    120131                }
    121132
Note: See TracChangeset for help on using the changeset viewer.