wip: test fail when no ip in machine

issue #2142

Author: frankiejol

lib/Ravada/Domain.pm

@@ -3920,7 +3920,6 @@ sub _update_display_port_exposed($self, $name, $local_ip, $public_port, $interna
             or $self->_vm->display_ip
             or $local_ip );
 
-    my $is_builtin;
     for (1 .. 10) {
         eval {
             $sth->execute($display_ip, $local_ip, $public_port,1, $self->_vm->id

t/vm/n10_nat.t

@@ -76,22 +76,27 @@ sub test_nat_rdp($vm) {
         ,id_domain => $domain->id
     );
     wait_request();
-    wait_ip($domain);
-
-    $vm->nat_ip($NAT_IP);
-
     my $req = Ravada::Request->start_domain(
         uid => user_admin->id
         ,id_domain => $domain->id
         ,remote_ip => $REMOTE_IP
     );
     wait_request(debug=>0);
 
+    wait_ip($domain);
+
+    die "Error: no ip found for ".$domain->name if !$domain->ip;
+
+    $vm->nat_ip($NAT_IP);
+
+    $req->status('requested');
+    wait_request(debug=>0);
+
     my $sth = connector->dbh->prepare("SELECT * FROM domain_displays");
     $sth->execute();
     while (my $row = $sth->fetchrow_hashref) {
         is($row->{listen_ip}, $vm->ip,"listen_ip ".$row->{driver});
-        is($row->{ip},$NAT_IP,"ip ".$row->{driver});
+        is($row->{ip},$NAT_IP,"ip ".$row->{driver}) or exit;
     }
     $vm->nat_ip('');
 }