wip(backend): portable update current timestamp

Tested in 30_hardware.t

issue #1333

lib/Ravada.pm

@@ -2575,7 +2575,7 @@ sub _set_domain_changed($self, $request) {
     }
     return if !defined $id_domain;
 
-    my $sth = $CONNECTOR->dbh->prepare("UPDATE domains set date_changed=NULL "
+    my $sth = $CONNECTOR->dbh->prepare("UPDATE domains set date_changed=CURRENT_TIMESTAMP"
         ." WHERE id=? ");
     $sth->execute($id_domain);
 

t/request/30_hardware.t

@@ -29,6 +29,8 @@ my %CREATE_ARGS = (
     ,Void => { id_owner => $USER->id }
 );
 
+my $TEST_TIMESTAMP = 0;
+
 ########################################################################
 sub create_args {
     my $backend = shift;
@@ -68,6 +70,9 @@ sub test_add_hardware_request_drivers {
 sub test_add_hardware_request($vm, $domain, $hardware, $data={}) {
 
     confess if !ref($data) || ref($data) ne 'HASH';
+
+    my $date_changed = $domain->_data('date_changed');
+
     my @list_hardware1 = $domain->get_controller($hardware);
 	my $numero = scalar(@list_hardware1)+1;
     while ($hardware eq 'usb' && $numero > 4) {
@@ -87,6 +92,7 @@ sub test_add_hardware_request($vm, $domain, $hardware, $data={}) {
 	is($@,'') or return;
     $USER->unread_messages();
 	ok($req, 'Request');
+    sleep 1 if !$TEST_TIMESTAMP;
 	rvd_back->_process_all_requests_dont_fork();
     is($req->status(),'done');
     is($req->error(),'') or exit;
@@ -117,6 +123,9 @@ sub test_add_hardware_request($vm, $domain, $hardware, $data={}) {
     } elsif($hardware eq 'disk') {
         like($new_hardware->{file},qr(\.iso$)) or die Dumper($info->{hardware}->{$hardware});
     }
+    if (!$TEST_TIMESTAMP++) {
+        isnt($domain->_data('date_changed'), $date_changed);
+    }
 }
 
 sub test_add_cdrom($domain) {
@@ -639,6 +648,7 @@ for my $vm_name ( qw(Void KVM )) {
         ok(!$domain_b->is_active);
 
     }
+    ok($TEST_TIMESTAMP);
 }
 
 end();