split get_basic_machine_info into get_vm_arch and get_vm_machine

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

diff --git a/test/run_config2command_tests.pl b/test/run_config2command_tests.pl
index dbec70c1ddab3e07df350a16b244f495c2baf5d7..9b0b3bb3fb0471992086228dcce00094b8fd1eeb 100755 (executable)
--- a/test/run_config2command_tests.pl
+++ b/test/run_config2command_tests.pl
@@ -131,6 +131,21 @@ $qemu_server_config->mock(
     },
 );
 
+my $pve_common_tools;
+$pve_common_tools = Test::MockModule->new('PVE::Tools');
+$pve_common_tools->mock(
+    next_vnc_port => sub {
+       my ($family, $address) = @_;
+
+       return '5900';
+    },
+    next_spice_port => sub {
+       my ($family, $address) = @_;
+
+       return '61000';
+    },
+);
+
 sub diff($$) {
     my ($a, $b) = @_;
     return if $a eq $b;
@@ -188,8 +203,8 @@ sub do_test($) {
     if (-f $cmd_fn) {
        my $cmdline_expected = file_get_contents($cmd_fn);
 
-       my $cmd_expected = [ sort split /\s*\\?\n\s*/, $cmdline_expected ];
-       my $cmd = [ sort split /\s*\\?\n\s*/, $cmdline ];
+       my $cmd_expected = [ split /\s*\\?\n\s*/, $cmdline_expected ];
+       my $cmd = [ split /\s*\\?\n\s*/, $cmdline ];
 
        # comment out for easier debugging
        #file_set_contents("$cmd_fn.tmp", $cmdline);