Changeset 24637 for trunk/Nebulous-Server/t/09_server_delete_instance.t

Timestamp:

Jul 1, 2009, 5:21:32 PM (17 years ago)

Author:

jhoblitt

Message:

add the ability to delete a storage object when it has instances that are offline

File:

• trunk/Nebulous-Server/t/09_server_delete_instance.t (modified) (3 diffs)

trunk/Nebulous-Server/t/09_server_delete_instance.t

@@ -8 +8 @@
 use warnings FATAL => qw( all );
 
-use Test::More tests => 8;
+use Test::More tests => 11;
 
 use lib qw( ./t ./lib );
@@ -20 +20 @@
     dbpasswd    => $NEB_PASS,
 );
+
+use Test::DBUnit dsn => $NEB_DB, username => $NEB_USER, password => $NEB_PASS;
 
 Test::Nebulous->setup;
@@ -44 +46 @@
 
     ok($neb->delete_instance($key, $uri2), "delete instance");
+
+    eval {
+        $neb->find_instances($key);
+    };
+    like($@, qr/is valid object key/, "storage object was deleted");
+}
+
+Test::Nebulous->setup;
+
+{
+    my $key = "foo";
+    my $uri1 = $neb->create_object($key, 'node01');
+    my $uri2 = $neb->replicate_object($key, 'node2');
+
+    # make one of the instances unavailable
+    my $dbh = test_dbh();
+    $dbh->do("UPDATE mountedvol SET available = 0 WHERE name = 'node01'");
+
+    ok($neb->delete_instance($key, $uri2), "delete instance");
+
+    expected_dataset_ok(
+        deleted => [vol_id => 1, uri => $uri1],
+    );
 
     eval {