1 package t::lib::Bootstrap;
6 use File::Temp qw( tempfile );
9 our ( $database, $database_test );
11 my ($self, %args) = @_;
16 my $host = C4::Context->config('hostname');
17 my $port = C4::Context->config('port');
18 $database_test = C4::Context->config("database_test") or die "Config entry 'database_test' does not exist";
19 $database = C4::Context->config('database');
20 die "Entries 'database_test' and 'database' have the same value in your config"
21 if $database_test eq $database;
22 my $user = C4::Context->config('user');
23 my $pass = C4::Context->config('pass');
25 my $dbh = DBI->connect("dbi:mysql:;host=$host;port=$port", $user, $pass, {
30 $dbh->do("DROP DATABASE IF EXISTS $database_test");
31 $dbh->do("CREATE DATABASE $database_test");
36 my $dbh = C4::Context->dbh;
37 $dbh->do("DROP DATABASE IF EXISTS $database_test")
38 if $database_test && $database_test ne $database;
39 Koha::Caches->get_instance()->flush_all;
40 Koha::Caches->get_instance('config')->flush_all;