$SIG{__DIE__} = sub { Carp::confess( @_ ) } if $::lx_office_conf{debug}->{backtrace_on_die};
+ # Always use English locale for messages from the database during
+ # tests.
+ my $query = qq|SET lc_messages = 'en_US.UTF-8'|;
+ SL::DB->auth->dbh->do($query) || die 'Cannot set database locale to en_US.UTF-8 for auth database';
+ SL::DB->client->dbh->do($query) || die 'Cannot set database locale to en_US.UTF-8 for main database';
+
return 1;
}