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
|
# -*- perl -*-
#
# Copyright (C) 2009, 2010 Red Hat, Inc.
# Copyright (C) 2009 Daniel P. Berrange
#
# This program is free software; You can redistribute it and/or modify
# it under the GNU General Public License as published by the Free
# Software Foundation; either version 2, or (at your option) any
# later version
#
# The file "LICENSE" distributed along with this file provides full
# details of the terms and conditions
#
use Test::More tests => 2;
BEGIN {
use_ok("Sys::Virt::TCK::DomainBuilder");
}
my $xml = <<EOF;
<domain type="xen">
<name>tck</name>
<memory>512500</memory>
<currentMemory>512500</currentMemory>
<vcpu>3</vcpu>
<os>
<type>hvm</type>
<boot dev="hd" />
</os>
<features>
<acpi />
</features>
<devices>
<disk type="block">
<driver name="qemu" type="qcow2" />
<source dev="/dev/hda1" />
<target dev="/dev/xvda" bus="xen" />
<encryption format="qcow">
<secret type="passphrase" uuid="0a81f5b2-8403-7b23-c8d6-21ccc2f80d6f" />
</encryption>
</disk>
<console type="pty" />
</devices>
<seclabel model="selinux" type="hybrid" relabel="flat">
<baselabel>system_u:system_r:svirt_t:s0</baselabel>
</seclabel>
</domain>
EOF
chomp $xml;
my $conn = Sys::Virt->new(address => "test:///default");
my $b = Sys::Virt::TCK::DomainBuilder->new(conn => $conn, domain => "xen", ostype => 'hvm')
->with_acpi->memory(500*1025)->vcpu(3)
->disk(format => { name => "qemu", type => "qcow2" }, type => 'block', src => "/dev/hda1", dst => "/dev/xvda", bus => "xen", secret => "0a81f5b2-8403-7b23-c8d6-21ccc2f80d6f")
->seclabel(model => "selinux", relabel => "flat", type => "hybrid", baselabel => "system_u:system_r:svirt_t:s0")
->as_xml;
is ($b, $xml);
|
