[libvirt] [libvirt-tck PATCH] 121-block-info.t: allow for greater capacity/allocation

Don't be too picky about the actual size and allocation. The size needs to be correct but it's o.k. for allocation and size to be bigger. Debian Wheezy's qemu adds 4096 bytes. --- scripts/domain/121-block-info.t | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/scripts/domain/121-block-info.t b/scripts/domain/121-block-info.t index dad00c6..4c3fafc 100644 --- a/scripts/domain/121-block-info.t +++ b/scripts/domain/121-block-info.t @@ -103,8 +103,8 @@ is($dom->get_block_info($dst2,0)->{physical}, 1024*1024, "Get disk physical info is($dom->get_block_info($dst,0)->{capacity}, 1024*1024*50, "Get disk capacity info"); -is($dom->get_block_info($dst,0)->{allocation}, 1024*1024*50, "Get disk allocation info"); -is($dom->get_block_info($dst,0)->{physical}, 1024*1024*50, "Get disk physical info"); +ok($dom->get_block_info($dst,0)->{allocation} >= 1024*1024*50, "Get disk allocation info"); +ok($dom->get_block_info($dst,0)->{physical} >= 1024*1024*50, "Get disk physical info"); diag "Test block_resize"; lives_ok(sub {$dom->block_resize($dst, 512*50)}, "resize to 512*50 KB"); @@ -112,8 +112,8 @@ $st = stat($path); is($st->size, 512*1024*50, "size is 25M"); is($dom->get_block_info($dst,0)->{capacity}, 1024*512*50, "Get disk capacity info"); -is($dom->get_block_info($dst,0)->{allocation}, 1024*512*50, "Get disk allocation info"); -is($dom->get_block_info($dst,0)->{physical}, 1024*512*50, "Get disk physical info"); +ok($dom->get_block_info($dst,0)->{allocation} >= 1024*512*50, "Get disk allocation info"); +ok($dom->get_block_info($dst,0)->{physical} >= 1024*512*50, "Get disk physical info"); lives_ok(sub {$dom->block_resize($dst, 1024*50)}, "resize to 1024*50 KB"); $st = stat($path); -- 1.7.10.4