]>
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 print "parsing ovfs \n " ;
17 my $win2008 = eval { PVE
:: QemuServer
:: OVF
:: parse_ovf
( " $test_manifests/Win_2008_R2_two -disks.ovf" ) };
19 fail
( 'parse win2008' );
20 warn ( "error: $err\n " );
24 my $win10 = eval { PVE
:: QemuServer
:: OVF
:: parse_ovf
( " $test_manifests/Win10 -Liz.ovf" ) };
27 warn ( "error: $err\n " );
31 my $win10noNs = eval { PVE
:: QemuServer
:: OVF
:: parse_ovf
( " $test_manifests/Win10 -Liz_no_default_ns.ovf" ) };
33 fail
( "parse win10 no default rasd NS" );
34 warn ( "error: $err\n " );
36 ok
( 'parse win10 no default rasd NS' );
39 print "testing disks \n " ;
41 is ( $win2008 ->{ disks
}->[ 0 ]->{ disk_address
}, 'scsi0' , 'multidisk vm has the correct first disk controller' );
42 is ( $win2008 ->{ disks
}->[ 0 ]->{ backing_file
}, " $test_manifests/disk1 .vmdk" , 'multidisk vm has the correct first disk backing device' );
43 is ( $win2008 ->{ disks
}->[ 0 ]->{ virtual_size
}, 2048 , 'multidisk vm has the correct first disk size' );
45 is ( $win2008 ->{ disks
}->[ 1 ]->{ disk_address
}, 'scsi1' , 'multidisk vm has the correct second disk controller' );
46 is ( $win2008 ->{ disks
}->[ 1 ]->{ backing_file
}, " $test_manifests/disk2 .vmdk" , 'multidisk vm has the correct second disk backing device' );
47 is ( $win2008 ->{ disks
}->[ 1 ]->{ virtual_size
}, 2048 , 'multidisk vm has the correct second disk size' );
49 is ( $win10 ->{ disks
}->[ 0 ]->{ disk_address
}, 'scsi0' , 'single disk vm has the correct disk controller' );
50 is ( $win10 ->{ disks
}->[ 0 ]->{ backing_file
}, " $test_manifests/Win10 -Liz-disk1.vmdk" , 'single disk vm has the correct disk backing device' );
51 is ( $win10 ->{ disks
}->[ 0 ]->{ virtual_size
}, 2048 , 'single disk vm has the correct size' );
53 is ( $win10noNs ->{ disks
}->[ 0 ]->{ disk_address
}, 'scsi0' , 'single disk vm (no default rasd NS) has the correct disk controller' );
54 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' );
55 is ( $win10noNs ->{ disks
}->[ 0 ]->{ virtual_size
}, 2048 , 'single disk vm (no default rasd NS) has the correct size' );
57 print " \n testing vm.conf extraction \n " ;
59 is ( $win2008 ->{ qm
}->{ name
}, 'Win2008-R2x64' , 'win2008 VM name is correct' );
60 is ( $win2008 ->{ qm
}->{ memory
}, '2048' , 'win2008 VM memory is correct' );
61 is ( $win2008 ->{ qm
}->{ cores
}, '1' , 'win2008 VM cores are correct' );
63 is ( $win10 ->{ qm
}->{ name
}, 'Win10-Liz' , 'win10 VM name is correct' );
64 is ( $win10 ->{ qm
}->{ memory
}, '6144' , 'win10 VM memory is correct' );
65 is ( $win10 ->{ qm
}->{ cores
}, '4' , 'win10 VM cores are correct' );
67 is ( $win10noNs ->{ qm
}->{ name
}, 'Win10-Liz' , 'win10 VM (no default rasd NS) name is correct' );
68 is ( $win10noNs ->{ qm
}->{ memory
}, '6144' , 'win10 VM (no default rasd NS) memory is correct' );
69 is ( $win10noNs ->{ qm
}->{ cores
}, '4' , 'win10 VM (no default rasd NS) cores are correct' );