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
|
# -*- 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::StorageVolBuilder");
}
my $xml = <<EOF;
<volume>
<name>tck</name>
<capacity>1000000</capacity>
<allocation>1000000</allocation>
<target>
<format type="qcow2" />
<encryption format="qcow">
<secret type="passphrase" uuid="0a81f5b2-8403-7b23-c8d6-21ccc2f80d6f" />
</encryption>
</target>
</volume>
EOF
chomp $xml;
my $b = Sys::Virt::TCK::StorageVolBuilder->new()
->capacity(1000000)->allocation(1000000)
->format("qcow2")
->secret("0a81f5b2-8403-7b23-c8d6-21ccc2f80d6f")
->as_xml;
is ($b, $xml);
|
