1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
# -*- perl -*-
use strict;
use warnings;
use Test::More tests => 12;
BEGIN {
use_ok('Sys::Virt');
}
my $conn = Sys::Virt->new(uri => "test:///default");
isa_ok($conn, "Sys::Virt");
my $pool = $conn->get_storage_pool_by_name("default-pool");
isa_ok($pool, "Sys::Virt::StoragePool");
my $volxml = <<EOF;
<volume>
<name>demo-vol</name>
<capacity unit="G">5</capacity>
</volume>
EOF
my $newvol = $pool->create_volume($volxml);
isa_ok($newvol, "Sys::Virt::StorageVol");
my @vols = $pool->list_all_volumes();
is(int(@vols), 1, "1 storage vol");
is($vols[0]->get_name, "demo-vol", "storage vol name matches");
my $key = $newvol->get_key();
my $vol1 = $conn->get_storage_volume_by_path("/default-pool/demo-vol");
isa_ok($vol1, "Sys::Virt::StorageVol");
is($vol1->get_key(), $newvol->get_key(), "key matches");
my $vol2 = $conn->get_storage_volume_by_key($key);
isa_ok($vol2, "Sys::Virt::StorageVol");
is($vol2->get_path(), $newvol->get_path(), "path matches");
my $newpool = $conn->get_storage_pool_by_volume($vol2);
isa_ok($newpool, "Sys::Virt::StoragePool");
is($newpool->get_uuid(), $pool->get_uuid(), "Pool UUID matches");
|
