source: /cluster/svnroot/bccd-ng/branches/skylar-test_fw/trees/home/bccd/tests/test_defs.pm @ 2730

package tests;

use bccd_test_suite;
use vars qw/ %tests /;
use Cwd;
use POSIX;
use Carp;
use Bccd;

my $Bccd = new Bccd();

%tests = (
    'test' => sub { #Test the test suite
        (my $testdir, my $testname) = @_;
        my $storeOutput = 
            bccd_test_suite::generate_storeOutput($testdir,$testname);
        system("
                echo \"BCCD\nBCCD\nBCCD\" $storeOutput
                echo \"ok, it works.\" $storeOutput
                ")
    },
    
    'fail' => sub { #Guarantee an error report
        (my $testdir, my $testname) = @_;
        my $storeOutput =
            bccd_test_suite::generate_storeOutput($testdir,$testname);
        system( "seq 1 100 | sort -R $storeOutput");
    },
    
    'system' => sub { #Print system information
        (my $testdir, my $testname) = @_;
        chdir("$ENV{HOME}/tests"); # Hack time
        my $storeOutput =
            bccd_test_suite::generate_storeOutput($testdir,$testname);
        my $out = getcwd()."/$testdir/$testname.dat";
        open(my $OUT, '>>', $out) or
            croak "Can't open $out for appending: $!\n";
        my @uname = POSIX::uname();
        print $OUT "@uname\n";
        open(my $CPUI, '<', '/proc/cpuinfo') or
            croak "Can't open /proc/cpuinfo for reading: $!\n";
        while(my $line = <$CPUI>) {
            chomp $line;
            print $OUT "$line\n";
        }
        close($CPUI);
        close($OUT);
    },
    
    'BCCD' => sub { #Test the BCCD's built-in tests
        
    },
    
    'GalaxSee' => sub { #Test GalaxSee
        (my $testdir, my $testname) = @_;
        bccd_test_suite::mpi_test($testdir, $testname);
    },
    
    'Life' => sub { #Test Conway's Game of Life
        (my $testdir, my $testname) = @_;
        bccd_test_suite::mpi_test($testdir, $testname);
    },

    'liberate' => sub { # Liberate to /dev/hda
        (my $testdir, my $testname) = @_;
        if($Bccd->get_stage() eq 'LIVE') {
            chdir("$ENV{HOME}/tests");
            my $out = getcwd()."/$testdir/$testname.dat";
            open(my $OUT, '>>', $out) or
                croak "Can't open $out for appending: $!\n";
            open(my $LIB, '-|', '/usr/bin/sudo', 
                 '/usr/bin/perl', '/root/liberate.pl',
                 '--libdev=/dev/hda') or
                     croak "Can't open /root/liberate.pl: $!\n";
            
            while(my $line = <$LIB>) {
                chomp $line;
                print $LIB "$line\n";
            }
            
            close($LIB);
            close($OUT);
        }
    },
    )