Commit | Line | Data |
---|---|---|
c6d74d3e | 1 | package # hide from PAUSE |
2 | DBICTest; | |
1c339d71 | 3 | |
4 | use strict; | |
5 | use warnings; | |
6 | use DBICTest::Schema; | |
7 | ||
8 | sub initialise { | |
9 | ||
10 | my $db_file = "t/var/DBIxClass.db"; | |
11 | ||
12 | unlink($db_file) if -e $db_file; | |
13 | unlink($db_file . "-journal") if -e $db_file . "-journal"; | |
14 | mkdir("t/var") unless -d "t/var"; | |
15 | ||
16 | my $dsn = "dbi:SQLite:${db_file}"; | |
17 | ||
18 | return DBICTest::Schema->compose_connection('DBICTest' => $dsn); | |
19 | } | |
20 | ||
510ca912 | 21 | 1; |