]>
Commit | Line | Data |
---|---|---|
5fd0910b EK |
1 | #!/usr/bin/perl |
2 | ||
3 | use strict; | |
4 | use warnings; | |
5 | use lib qw(..); # prepend .. to @INC so we use the local version of PVE packages | |
6 | ||
7 | use FindBin '$Bin'; | |
8 | use PVE::QemuServer::OVF; | |
9 | use Test::More; | |
10 | ||
11 | use Data::Dumper; | |
12 | ||
13 | my $test_manifests = join ('/', $Bin, 'ovf_manifests'); | |
14 | ||
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"); | |
17 | ||
18 | print "testing disks\n"; | |
19 | ||
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'); | |
23 | ||
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'); | |
27 | ||
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'); | |
31 | ||
32 | print "\ntesting vm.conf extraction\n"; | |
33 | ||
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'); | |
37 | ||
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'); | |
41 | ||
42 | done_testing(); |