Changeset 19493 for trunk/Nebulous-Server/lib/Test/Nebulous.pm

Timestamp:

Sep 11, 2008, 12:35:52 PM (18 years ago)

Author:

jhoblitt

Message:

invert soft volume semantics

File:

• trunk/Nebulous-Server/lib/Test/Nebulous.pm (modified) (5 diffs)

trunk/Nebulous-Server/lib/Test/Nebulous.pm

@@ -1 +1 @@
 # Copyright (C) 2004  Joshua Hoblitt
 #
-# $Id: Nebulous.pm,v 1.3 2008-09-11 21:18:35 bills Exp $
+# $Id: Nebulous.pm,v 1.4 2008-09-11 22:35:52 jhoblitt Exp $
 
 package Test::Nebulous;
@@ -32 +32 @@
 my $dir5 = "";
 my $dir6 = "";
+my $dir7 = "";
 
 sub setup {
@@ -45 +46 @@
     $dir5 = tempdir( CLEANUP => 0 );
     $dir6 = tempdir( CLEANUP => 0 );
+    $dir7 = tempdir( CLEANUP => 0 );
 
     foreach my $statement (@{ $sql->get_db_schema }) {
@@ -70 +72 @@
 
     # node06: allocate = TRUE, available = FALSE
-    $dbh->do(qq{ INSERT INTO volume (vol_id, name, host, path, allocate, available) VALUES (6, 'node06', 'node06', ?, TRUE, FALSE) }, undef, $dir4);
+    $dbh->do(qq{ INSERT INTO volume (vol_id, name, host, path, allocate, available) VALUES (6, 'node06', 'node06', ?, TRUE, FALSE) }, undef, $dir6);
     $dbh->do(qq{ INSERT INTO mount VALUES (?, 10e10, 10e7) }, undef, $dir6);
+
+    # node07: full
+    $dbh->do(qq{ INSERT INTO volume (vol_id, name, host, path, allocate, available) VALUES (7, 'node07', 'node07', ?, TRUE, TRUE) }, undef, $dir7);
+    $dbh->do(qq{ INSERT INTO mount VALUES (?, 10e10, 10e10) }, undef, $dir7);
 
     $dbh->do(qq{ call getmountedvol() });
@@ -88 +94 @@
     rmtree([$dir5], 0, 1) if -e $dir5;
     rmtree([$dir6], 0, 1) if -e $dir6;
+    rmtree([$dir7], 0, 1) if -e $dir7;
 }