diff --git a/lib/Ravada/Request.pm b/lib/Ravada/Request.pm index 8f92fe5f8..e92d6c5c0 100644 --- a/lib/Ravada/Request.pm +++ b/lib/Ravada/Request.pm @@ -255,6 +255,7 @@ our %COMMAND = ( ,commands => ['shutdown','shutdown_now', 'enforce_limits', 'set_time' ,'remove_domain', 'remove', 'refresh_machine_ports' ,'connect_node','start_node','shutdown_node' + ,'post_login' ] } diff --git a/t/lib/Test/Ravada.pm b/t/lib/Test/Ravada.pm index a1776d586..9ff173a54 100644 --- a/t/lib/Test/Ravada.pm +++ b/t/lib/Test/Ravada.pm @@ -615,7 +615,12 @@ sub _clean_old_users() { } sub _clean_old_groups() { - my $sth = $CONNECTOR->dbh->prepare("SELECT id,name FROM groups_local WHERE name like ? "); + my $sth = $CONNECTOR->dbh->table_info('%',undef,'groups_local','TABLE'); + my $info = $sth->fetchrow_hashref(); + $sth->finish; + return if !keys %$info; + + $sth = $CONNECTOR->dbh->prepare("SELECT id,name FROM groups_local WHERE name like ? "); $sth->execute(base_domain_name().'%'); while ( my ($id,$name) = $sth->fetchrow ) { my $g = Ravada::Auth::Group->open($id); diff --git a/t/mojo/40_anonymous.t b/t/mojo/40_anonymous.t index 54c997ba9..67b0a2f02 100644 --- a/t/mojo/40_anonymous.t +++ b/t/mojo/40_anonymous.t @@ -133,4 +133,5 @@ wait_request(); remove_volatile_clones(@$bases); remove_old_domains_req(0); +end(); done_testing(); diff --git a/t/mojo/40_security_policy.t b/t/mojo/40_security_policy.t index 4e4af063d..7f99406b4 100644 --- a/t/mojo/40_security_policy.t +++ b/t/mojo/40_security_policy.t @@ -82,4 +82,5 @@ $sth->execute($settings->{frontend}->{content_security_policy}->{id}); $new->{frontend}->{content_security_policy}->{'default-src'}->{value} = ''; $new->{frontend}->{content_security_policy}->{'all'}->{value} = ''; $t->post_ok("/settings_global", json => $new ); +end(); done_testing();