[libvirt] [tck PATCH 2/2] scripts: qemu: Enable disk encryption test

At the time the test was added, volume encryption wasn't fully supported in libvirt. For disks of type 'raw', this is not the case anymore, so let's adjust the test according to that fact and enable it. Signed-off-by: Erik Skultety <eskultet(a)redhat.com&gt; --- scripts/qemu/100-disk-encryption.t | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/scripts/qemu/100-disk-encryption.t b/scripts/qemu/100-disk-encryption.t index 2c988ec..b44dbc8 100644 --- a/scripts/qemu/100-disk-encryption.t +++ b/scripts/qemu/100-disk-encryption.t @@ -41,10 +41,9 @@ END { $tck->cleanup if $tck; } SKIP: { skip "Only relevant to QEMU driver", 8 unless $conn->get_type() eq "QEMU"; - skip "Libvirt LUKS support isn't ready", 8; my $dir = $tck->bucket_dir("300-disk-encryption"); -my $disk = catfile($dir, "demo.qcow2"); +my $disk = catfile($dir, "demo.img"); my $secretXML = <<EOF; @@ -73,9 +72,9 @@ diag "Creating pool $poolXML"; lives_ok(sub { $pool = $conn->create_storage_pool($poolXML) }, "pool created"); -my $volXML = Sys::Virt::TCK::StorageVolBuilder->new(name => "demo.qcow2") +my $volXML = Sys::Virt::TCK::StorageVolBuilder->new(name => "demo.img") ->capacity(1024*1024*1024) - ->format("qcow2") + ->format("raw") ->encryption_format("luks") ->secret($secretUUID) ->as_xml(); @@ -86,7 +85,7 @@ diag "Creating volume $volXML"; lives_ok(sub { $vol = $pool->create_volume($volXML) }, "volume created"); my $xml = $tck->generic_domain(name => "tck") - ->disk(format => { name => "qemu", type => "qcow2" }, + ->disk(format => { name => "qemu", type => "raw" }, encryption_format => "luks", secret => $secretUUID, type => "file", -- 2.23.0