5a66c27cc6
using the new top-level `make tidy` target, which calls perltidy via our wrapper to enforce the desired style as closely as possible. Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>
121 lines
4.1 KiB
Perl
Executable File
121 lines
4.1 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use lib qw(..); # prepend .. to @INC so we use the local version of PVE packages
|
|
|
|
use FindBin '$Bin';
|
|
use PVE::GuestImport::OVF;
|
|
use Test::More;
|
|
|
|
use Data::Dumper;
|
|
|
|
my $test_manifests = join('/', $Bin, 'ovf_manifests');
|
|
|
|
print "parsing ovfs\n";
|
|
|
|
my $win2008 =
|
|
eval { PVE::GuestImport::OVF::parse_ovf("$test_manifests/Win_2008_R2_two-disks.ovf") };
|
|
if (my $err = $@) {
|
|
fail('parse win2008');
|
|
warn("error: $err\n");
|
|
} else {
|
|
ok('parse win2008');
|
|
}
|
|
my $win10 = eval { PVE::GuestImport::OVF::parse_ovf("$test_manifests/Win10-Liz.ovf") };
|
|
if (my $err = $@) {
|
|
fail('parse win10');
|
|
warn("error: $err\n");
|
|
} else {
|
|
ok('parse win10');
|
|
}
|
|
my $win10noNs =
|
|
eval { PVE::GuestImport::OVF::parse_ovf("$test_manifests/Win10-Liz_no_default_ns.ovf") };
|
|
if (my $err = $@) {
|
|
fail("parse win10 no default rasd NS");
|
|
warn("error: $err\n");
|
|
} else {
|
|
ok('parse win10 no default rasd NS');
|
|
}
|
|
|
|
print "testing disks\n";
|
|
|
|
is(
|
|
$win2008->{disks}->[0]->{disk_address},
|
|
'scsi0',
|
|
'multidisk vm has the correct first disk controller',
|
|
);
|
|
is(
|
|
$win2008->{disks}->[0]->{backing_file},
|
|
"$test_manifests/disk1.vmdk",
|
|
'multidisk vm has the correct first disk backing device',
|
|
);
|
|
is($win2008->{disks}->[0]->{virtual_size}, 2048, 'multidisk vm has the correct first disk size');
|
|
|
|
is(
|
|
$win2008->{disks}->[1]->{disk_address},
|
|
'scsi1',
|
|
'multidisk vm has the correct second disk controller',
|
|
);
|
|
is(
|
|
$win2008->{disks}->[1]->{backing_file},
|
|
"$test_manifests/disk2.vmdk",
|
|
'multidisk vm has the correct second disk backing device',
|
|
);
|
|
is($win2008->{disks}->[1]->{virtual_size}, 2048, 'multidisk vm has the correct second disk size');
|
|
|
|
is($win10->{disks}->[0]->{disk_address}, 'scsi0', 'single disk vm has the correct disk controller');
|
|
is(
|
|
$win10->{disks}->[0]->{backing_file},
|
|
"$test_manifests/Win10-Liz-disk1.vmdk",
|
|
'single disk vm has the correct disk backing device',
|
|
);
|
|
is($win10->{disks}->[0]->{virtual_size}, 2048, 'single disk vm has the correct size');
|
|
|
|
is(
|
|
$win10noNs->{disks}->[0]->{disk_address},
|
|
'scsi0',
|
|
'single disk vm (no default rasd NS) has the correct disk controller',
|
|
);
|
|
is(
|
|
$win10noNs->{disks}->[0]->{backing_file},
|
|
"$test_manifests/Win10-Liz-disk1.vmdk",
|
|
'single disk vm (no default rasd NS) has the correct disk backing device',
|
|
);
|
|
is(
|
|
$win10noNs->{disks}->[0]->{virtual_size},
|
|
2048,
|
|
'single disk vm (no default rasd NS) has the correct size',
|
|
);
|
|
|
|
print "testing nics\n";
|
|
is($win2008->{net}->{net0}->{model}, 'e1000', 'win2008 has correct nic model');
|
|
is($win10->{net}->{net0}->{model}, 'e1000e', 'win10 has correct nic model');
|
|
is($win10noNs->{net}->{net0}->{model}, 'e1000e',
|
|
'win10 (no default rasd NS) has correct nic model');
|
|
|
|
print "\ntesting vm.conf extraction\n";
|
|
|
|
is($win2008->{qm}->{boot}, 'order=scsi0;scsi1', 'win2008 VM boot is correct');
|
|
is($win2008->{qm}->{name}, 'Win2008-R2x64', 'win2008 VM name is correct');
|
|
is($win2008->{qm}->{memory}, '2048', 'win2008 VM memory is correct');
|
|
is($win2008->{qm}->{cores}, '1', 'win2008 VM cores are correct');
|
|
is($win2008->{qm}->{ostype}, 'win7', 'win2008 VM ostype is correcty');
|
|
|
|
is($win10->{qm}->{boot}, 'order=scsi0', 'win10 VM boot is correct');
|
|
is($win10->{qm}->{name}, 'Win10-Liz', 'win10 VM name is correct');
|
|
is($win10->{qm}->{memory}, '6144', 'win10 VM memory is correct');
|
|
is($win10->{qm}->{cores}, '4', 'win10 VM cores are correct');
|
|
# older esxi/ovf standard used 'other' for windows10
|
|
is($win10->{qm}->{ostype}, 'other', 'win10 VM ostype is correct');
|
|
|
|
is($win10noNs->{qm}->{boot}, 'order=scsi0', 'win10 VM (no default rasd NS) boot is correct');
|
|
is($win10noNs->{qm}->{name}, 'Win10-Liz', 'win10 VM (no default rasd NS) name is correct');
|
|
is($win10noNs->{qm}->{memory}, '6144', 'win10 VM (no default rasd NS) memory is correct');
|
|
is($win10noNs->{qm}->{cores}, '4', 'win10 VM (no default rasd NS) cores are correct');
|
|
# older esxi/ovf standard used 'other' for windows10
|
|
is($win10noNs->{qm}->{ostype}, 'other', 'win10 VM (no default rasd NS) ostype is correct');
|
|
is($win10noNs->{qm}->{bios}, 'ovmf', 'win10 VM (no default rasd NS) bios is correct');
|
|
|
|
done_testing();
|