Changeset 2730 in /cluster/svnroot


Ignore:
Timestamp:
Oct 17, 2010 8:31:52 PM (10 years ago)
Author:
skylar
Message:

don't liberate unless LIVE (#520)

File:
1 edited

Legend:

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

    r2729 r2730  
    66use POSIX;
    77use Carp;
     8use Bccd;
     9
     10my $Bccd = new Bccd();
    811
    912%tests = (
     
    6164    'liberate' => sub { # Liberate to /dev/hda
    6265        (my $testdir, my $testname) = @_;
    63         chdir("$ENV{HOME}/tests");
    64         my $out = getcwd()."/$testdir/$testname.dat";
    65         open(my $OUT, '>>', $out) or
    66             croak "Can't open $out for appending: $!\n";
    67         open(my $LIB, '-|', '/usr/bin/sudo',
    68              '/usr/bin/perl', '/root/liberate.pl',
    69             '--libdev=/dev/hda') or
    70                 croak "Can't open /root/liberate.pl: $!\n";
    71 
    72         while(my $line = <$LIB>) {
    73             chomp $line;
    74             print $LIB "$line\n";
     66        if($Bccd->get_stage() eq 'LIVE') {
     67            chdir("$ENV{HOME}/tests");
     68            my $out = getcwd()."/$testdir/$testname.dat";
     69            open(my $OUT, '>>', $out) or
     70                croak "Can't open $out for appending: $!\n";
     71            open(my $LIB, '-|', '/usr/bin/sudo',
     72                 '/usr/bin/perl', '/root/liberate.pl',
     73                 '--libdev=/dev/hda') or
     74                     croak "Can't open /root/liberate.pl: $!\n";
     75           
     76            while(my $line = <$LIB>) {
     77                chomp $line;
     78                print $LIB "$line\n";
     79            }
     80           
     81            close($LIB);
     82            close($OUT);
    7583        }
    76 
    77         close($LIB);
    78         close($OUT);
    7984    },
    8085    )
Note: See TracChangeset for help on using the changeset viewer.