]>
git.proxmox.com Git - qemu-server.git/blob - test/run_ovf_tests.pl
5 use lib
qw(..); # prepend .. to @INC so we use the local version of PVE packages
8 use PVE
::QemuServer
::OVF
;
13 my $test_manifests = join ('/', $Bin, 'ovf_manifests');
15 my $win2008 = PVE
::QemuServer
::OVF
::parse_ovf
("$test_manifests/Win_2008_R2_two-disks.ovf");
16 my $win10 = PVE
::QemuServer
::OVF
::parse_ovf
("$test_manifests/Win10-Liz.ovf");
18 print "testing disks\n";
20 is($win2008->{disks
}->[0]->{disk_address
}, 'scsi0', 'multidisk vm has the correct first disk controller');
21 is($win2008->{disks
}->[0]->{backing_file
}, "$test_manifests/disk1.vmdk", 'multidisk vm has the correct first disk backing device');
22 is($win2008->{disks
}->[0]->{virtual_size
}, 2048, 'multidisk vm has the correct first disk size');
24 is($win2008->{disks
}->[1]->{disk_address
}, 'scsi1', 'multidisk vm has the correct second disk controller');
25 is($win2008->{disks
}->[1]->{backing_file
}, "$test_manifests/disk2.vmdk", 'multidisk vm has the correct second disk backing device');
26 is($win2008->{disks
}->[1]->{virtual_size
}, 2048, 'multidisk vm has the correct second disk size');
28 is($win10->{disks
}->[0]->{disk_address
}, 'scsi0', 'single disk vm has the correct disk controller');
29 is($win10->{disks
}->[0]->{backing_file
}, "$test_manifests/Win10-Liz-disk1.vmdk", 'single disk vm has the correct disk backing device');
30 is($win10->{disks
}->[0]->{virtual_size
}, 2048, 'single disk vm has the correct size');
32 print "\ntesting vm.conf extraction\n";
34 is($win2008->{qm
}->{name
}, 'Win2008-R2x64', 'win2008 VM name is correct');
35 is($win2008->{qm
}->{memory
}, '2048', 'win2008 VM memory is correct');
36 is($win2008->{qm
}->{cores
}, '1', 'win2008 VM cores are correct');
38 is($win10->{qm
}->{name
}, 'Win10-Liz', 'win10 VM name is correct');
39 is($win10->{qm
}->{memory
}, '6144', 'win10 VM memory is correct');
40 is($win10->{qm
}->{cores
}, '4', 'win10 VM cores are correct');