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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
# -*- perl -*-
use strict;
use warnings;
use Test::More tests => 25;
use XML::XPath;
use XML::XPath::XMLParser;
use Sys::Hostname;
BEGIN {
use_ok('Sys::Virt');
}
my $conn = Sys::Virt->new(uri => "test:///default");
isa_ok($conn, "Sys::Virt");
my $info = $conn->get_node_info();
is($info->{model}, "i686", "model");
is($info->{cpus}, 16, "cpus");
is($info->{mhz}, 1400, "mhz");
is($info->{sockets}, 2, "sockets");
is($info->{nodes}, 2, "nodes");
is($info->{cores}, 2, "cores");
is($info->{threads}, 2, "threads");
is($info->{memory}, 3145728, "memory");
my $caps = $conn->get_capabilities;
my $xp = XML::XPath->new(xml => $caps);
my $arch = $xp->find("string(/capabilities/host/cpu/arch)");
is($arch, "i686", "host");
my $guestos = $xp->find("string(/capabilities/guest[1]/os_type)");
is($guestos, "hvm", "os");
my $guestarch = $xp->find("string(/capabilities/guest[1]/arch/\@name)");
is($guestarch, "i686", "arch");
my $guestword = $xp->find("string(/capabilities/guest[1]/arch/wordsize)");
is($guestword, "32", "wordsize");
my $guesttype = $xp->find("string(/capabilities/guest[1]/arch/domain/\@type)");
is($guesttype, "test", "type");
my $guestpae = int($xp->find("count(/capabilities/guest[1]/features/pae)"));
is($guestpae, 1, "pae");
my $guestnonpae = int($xp->find("count(/capabilities/guest[1]/features/nonpae)"));
is($guestnonpae, 1, "nonpae");
my $ver = $conn->get_version();
my $major = $conn->get_major_version();
my $minor = $conn->get_minor_version();
my $micro = $conn->get_micro_version();
is(($ver - (int($ver % 1000000)))/1000000, $major, "major");
is((($ver - $major) - (($ver - $major) % 1000))/ 1000, $minor, "minor");
is(($ver - $major - $minor), $micro, "micro");
my $max = $conn->get_max_vcpus("linux");
is($max, 32, "max cpus");
SKIP: {
skip "Too hard to figure out matchiing hostnames in test suite", 1;
my $thishost = hostname();
my ($canonhost, $other) = gethostbyname($thishost);
$canonhost = $thishost unless $canonhost;
my $host = $conn->get_hostname();
is($host, $canonhost, "hostname");
}
ok($conn->is_secure(), "connection is secure");
ok(!$conn->is_encrypted(), "connection is not encrypted");
my @models = $conn->get_cpu_model_names($info->{model});
ok($#models > -1, "got some cpu models");
|
