Changeset 2510 in /cluster/svnroot


Ignore:
Timestamp:
Jun 30, 2010 1:27:35 PM (10 years ago)
Author:
leemasa
Message:

Corrected a minor typographical error

Location:
bccd-ng/branches/leemasa-devel/trees/home/bccd/tests
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • bccd-ng/branches/leemasa-devel/trees/home/bccd/tests/bccd_test_suite.pm

    r2508 r2510  
    33use strict;
    44use vars qw(%tests);
    5 use Bccd;
    65
    76#Trim function to remove whitespace
     
    6968}
    7069
    71 sub mpi_test($$){
     70sub mpi_test{
    7271        (my $testdir, my $testname) = @_;
    73         open(my $OUTPUT, "<$testdir/$testname.dat") or die "could not open data file: $!";
     72        print "$testdir/$testname.dat\n";
     73        open(my $OUTPUT, ">$testdir/$testname.dat") or die "could not open data file: $!";
    7474        my $storeOutput = generate_storeOutput($testdir,$testname);
    7575
     
    8181                        mpirun -np 2 ~/$testname/$testname      $storeOutput");
    8282
    83         if (`wc -l ~/machines` > 1){
     83        if (`wc -l ~/machines | awk '{print \$1}'` > 1){
    8484                system("bccd-syncdir . ~/machines       &> tmpoutput");
    8585                system("cat tmpoutput $storeOutput");
     
    9393        }
    9494        else{
    95                 output ($OUTPUT, "Machinefile has too few machines: skipping multiprocessor test");
     95                output ($OUTPUT, "Machinefile has too few machines: skipping multiprocessor test\n");
    9696        }
    9797####End test code####
     
    124124                },
    125125                       
    126                 'Gal' => sub { #Test GalaxSee
    127                         mpi_test(@_);
     126                'GalaxSee' => sub { #Test GalaxSee
     127                        (my $testdir, my $testname) = @_;
     128                        mpi_test($testdir, $testname);
    128129                },
    129130
    130131                'Life' => sub { #Test Conway's Game of Life
    131                         mpi_test(@_);
     132                        (my $testdir, my $testname) = @_;
     133                        mpi_test($testdir,$testname);
    132134                })
  • bccd-ng/branches/leemasa-devel/trees/home/bccd/tests/btsup.sh

    r2498 r2510  
    11#!/bin/sh -e
    22if [ $1 = "down" ] ; then
    3         scp leemasa@cs.earlham.edu:~/bccd_test_suite.pl leemasa@cs.earlham.edu:~/bccd_tests.pm .
     3        scp leemasa@cs.earlham.edu:~/$2 .
    44else
    55        if [ $1 = "up" ]; then
    6         scp bccd_test_suite.pl bccd_tests.pm leemasa@cs.earlham.edu:~
     6        scp $2 leemasa@cs.earlham.edu:~
    77       
    88        else
  • bccd-ng/branches/leemasa-devel/trees/home/bccd/tests/test_lists/std

    r2509 r2510  
    88test # A simple echo to make sure the suite is working
    99BCCD # Test some built-in BCCD commands
    10 Gal # Test the GalaxSee program
     10GalaxSee # Test the GalaxSee program
    1111Life # Test John Conway's Game of Life
  • bccd-ng/branches/leemasa-devel/trees/home/bccd/tests/test_lists/test

    r2509 r2510  
    88test # A simple echo to make sure the suite is working
    99#BCCD # Test some built-in BCCD commands
    10 #Gal # Test the GalaxSee program
     10#GalaxSee # Test the GalaxSee program
    1111#Life # Test John Conway's Game of Life
Note: See TracChangeset for help on using the changeset viewer.