machine: get current: return early from loop if possible

[qemu-server.git] / test / run_qemu_migrate_tests.pl

diff --git a/test/run_qemu_migrate_tests.pl b/test/run_qemu_migrate_tests.pl
index 090449f3f56f51d08f7e6bd76e426d6c652635ff..4373a380353f1aeb065ec775643df8f21cce5bd6 100755 (executable)
--- a/test/run_qemu_migrate_tests.pl
+++ b/test/run_qemu_migrate_tests.pl
@@ -88,6 +88,24 @@ my $storage_config = {
            path => "/some/other/dir/",
            type => "dir",
        },
+       "zfs-alias-1" => {
+           content => {
+               images => 1,
+               rootdir => 1,
+           },
+           pool => "aliaspool",
+           sparse => 1,
+           type => "zfspool",
+       },
+       "zfs-alias-2" => {
+           content => {
+               images => 1,
+               rootdir => 1,
+           },
+           pool => "aliaspool",
+           sparse => 1,
+           type => "zfspool",
+       },
     },
 };
 
@@ -130,6 +148,43 @@ my $vm_configs = {
        'startup' => 'order=2',
        'vmgenid' => '4eb1d535-9381-4ddc-a8aa-af50c4d9177b',
     },
+    111 => {
+       'bootdisk' => 'scsi0',
+       'cores' => 1,
+       'ide0' => 'local-lvm:vm-111-disk-0,size=4096M',
+       'ide2' => 'none,media=cdrom',
+       'memory' => 512,
+       'name' => 'pending-test',
+       'net0' => 'virtio=4A:A3:E4:4C:CF:F0,bridge=vmbr0,firewall=1',
+       'numa' => 0,
+       'ostype' => 'l26',
+       'pending' => {
+               'scsi0' => 'local-zfs:vm-111-disk-0,size=103M',
+       },
+       'scsihw' => 'virtio-scsi-pci',
+       'snapshots' => {},
+       'smbios1' => 'uuid=5ad71d4d-8f73-4377-853e-2d22c10c96a5',
+       'sockets' => 1,
+       'vmgenid' => '2c00c030-0b5b-4988-a371-6ab259893f22',
+    },
+    123 => {
+       'bootdisk' => 'scsi0',
+       'cores' => 1,
+       'scsi0' => 'zfs-alias-1:vm-123-disk-0,size=4096M',
+       'scsi1' => 'zfs-alias-2:vm-123-disk-0,size=4096M',
+       'ide2' => 'none,media=cdrom',
+       'memory' => 512,
+       'name' => 'alias-test',
+       'net0' => 'virtio=4A:A3:E4:4C:CF:F0,bridge=vmbr0,firewall=1',
+       'numa' => 0,
+       'ostype' => 'l26',
+       'pending' => {},
+       'scsihw' => 'virtio-scsi-pci',
+       'snapshots' => {},
+       'smbios1' => 'uuid=5ad71d4d-8f73-4377-853e-2d22c10c96a5',
+       'sockets' => 1,
+       'vmgenid' => '2c00c030-0b5b-4988-a371-6ab259893f22',
+    },
     149 => {
        'agent' => '0',
        'bootdisk' => 'scsi0',
@@ -306,6 +361,13 @@ my $source_vdisks = {
            'vmid' => '341',
            'volid' => 'local-lvm:vm-341-disk-0',
        },
+       {
+           'ctime' => '1589277334',
+           'format' => 'raw',
+           'size' =>  4294967296,
+           'vmid' => '111',
+           'volid' => 'local-lvm:vm-111-disk-0',
+       },
     ],
     'local-zfs' => [
        {
@@ -322,6 +384,13 @@ my $source_vdisks = {
            'vmid' => '105',
            'volid' => 'local-zfs:vm-105-disk-1',
        },
+       {
+           'ctime' => '1589277334',
+           'format' => 'raw',
+           'size' => 108003328,
+           'vmid' => '111',
+           'volid' => 'local-zfs:vm-111-disk-0',
+       },
        {
            'format' => 'raw',
            'name' => 'vm-4567-disk-0',
@@ -347,6 +416,24 @@ my $source_vdisks = {
            'volid' => 'rbd-store:vm-1033-cloudinit',
        },
     ],
+    'zfs-alias-1' => [
+       {
+           'ctime' => '1589277334',
+           'format' => 'raw',
+           'size' => 4294967296,
+           'vmid' => '123',
+           'volid' => 'zfs-alias-1:vm-123-disk-0',
+       },
+    ],
+    'zfs-alias-2' => [
+       {
+           'ctime' => '1589277334',
+           'format' => 'raw',
+           'size' => 4294967296,
+           'vmid' => '123',
+           'volid' => 'zfs-alias-2:vm-123-disk-0',
+       },
+    ],
 };
 
 my $default_expected_calls_online = {
@@ -708,7 +795,6 @@ my $tests = [
        },
     },
     {
-       # FIXME: Maybe add orphaned drives as unused?
        name => '149_running_orphaned_disk_targetstorage_zfs',
        target => 'pve1',
        vmid => 149,
@@ -729,10 +815,11 @@ my $tests = [
        },
        expected_calls => $default_expected_calls_online,
        expected => {
-           source_volids => {},
+           source_volids => {
+               'local-dir:149/vm-149-disk-0.qcow2' => 1,
+           },
            target_volids => {
                'local-zfs:vm-149-disk-10' => 1,
-               'local-zfs:vm-149-disk-0' => 1,
            },
            vm_config => get_patched_config(149, {
                scsi0 => 'local-zfs:vm-149-disk-10,format=raw,size=4G',
@@ -745,7 +832,6 @@ my $tests = [
        },
     },
     {
-       # FIXME: Maybe add orphaned drives as unused?
        name => '149_running_orphaned_disk',
        target => 'pve1',
        vmid => 149,
@@ -765,10 +851,11 @@ my $tests = [
        },
        expected_calls => $default_expected_calls_online,
        expected => {
-           source_volids => {},
+           source_volids => {
+               'local-dir:149/vm-149-disk-0.qcow2' => 1,
+           },
            target_volids => {
                'local-lvm:vm-149-disk-10' => 1,
-               'local-dir:149/vm-149-disk-0.qcow2' => 1,
            },
            vm_config => get_patched_config(149, {
                scsi0 => 'local-lvm:vm-149-disk-10,format=raw,size=4G',
@@ -1528,6 +1615,58 @@ my $tests = [
            },
        },
     },
+    {
+       name => '111_running_pending',
+       target => 'pve1',
+       vmid => 111,
+       vm_status => {
+           running => 1,
+           runningmachine => 'pc-q35-5.0+pve0',
+       },
+       opts => {
+           online => 1,
+           'with-local-disks' => 1,
+       },
+       expected_calls => $default_expected_calls_online,
+       expected => {
+           source_volids => {},
+           target_volids => {
+               'local-zfs:vm-111-disk-0' => 1,
+               'local-lvm:vm-111-disk-10' => 1,
+           },
+           vm_config => get_patched_config(111, {
+               ide0 => 'local-lvm:vm-111-disk-10,format=raw,size=4G',
+               pending => {
+                   scsi0 => 'local-zfs:vm-111-disk-0,size=103M',
+               },
+           }),
+           vm_status => {
+               running => 1,
+               runningmachine => 'pc-q35-5.0+pve0',
+           },
+       },
+    },
+    {
+       name => '123_alias_fail',
+       target => 'pve1',
+       vmid => 123,
+       vm_status => {
+           running => 0,
+       },
+       opts => {
+           'with-local-disks' => 1,
+       },
+       expected_calls => {},
+       expect_die => "detected not supported aliased volumes",
+       expected => {
+           source_volids => local_volids_for_vm(123),
+           target_volids => {},
+           vm_config => $vm_configs->{123},
+           vm_status => {
+               running => 0,
+           },
+       },
+    },
 ];
 
 my $single_test_name = shift;