wip(test): slightly improved tests for some cases

issue #1104

t/lib/Test/Ravada.pm

@@ -979,6 +979,12 @@ sub start_node($node) {
     is($connect,1
             ,"[".$node->type."] "
                 .$node->name." Expecting connection") or exit;
+    for ( 1 .. 60 ) {
+        $domain = _domain_node($node);
+        last if $domain->ip;
+        sleep 1;
+        diag("Waiting for connection to node ".$node->name." $_") if !($_ % 5);
+    }
 
     eval { $node->run_command("hwclock","--hctosys") };
     is($@,'',"Expecting no error setting clock on ".$node->name." ".($@ or ''));

t/vm/92_ports.t

@@ -46,10 +46,10 @@ sub test_one_port($vm) {
     is($@,'',"[".$vm->type."] export port $internal_port");
 
     my $port_info_no = $domain->exposed_port(456);
-    is(!$port_info_no);
+    is($port_info_no,undef);
 
     $port_info_no = $domain->exposed_port('no');
-    is(!$port_info_no);
+    is($port_info_no,undef);
 
     my $port_info = $domain->exposed_port($name_port);
     ok($port_info) && do {