Commit 3056c0ab authored by Francesc Guasch's avatar Francesc Guasch
Browse files

test: check user removed cleanly

parent 7c19ce88
......@@ -1776,7 +1776,22 @@ sub DESTROY {
_unlock_all();
}
sub _check_leftovers {
my $sth = $CONNECTOR->dbh->prepare("SELECT * FROM grants_user WHERE id_user NOT IN "
." ( SELECT id FROM users )"
);
$sth->execute();
my @error;
while ( my $row = $sth->fetchrow_hashref ) {
push @error, ("Leftover from grant_user not in user ".Dumper($row));
}
$sth->finish;
ok(!@error) or die Dumper(\@error);
}
sub end {
_check_leftovers
clean();
_unlock_all();
_file_db();
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment