Test: clean groups (#2102)

* test: do not clean groups when no table created

* refactor: faster post login

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'
         ]
     }
 

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);

t/mojo/40_anonymous.t

@@ -133,4 +133,5 @@ wait_request();
 remove_volatile_clones(@$bases);
 
 remove_old_domains_req(0);
+end();
 done_testing();

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();