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 | |
e673f011 |
16 | my $dsn = $ENV{"DBICTEST_DSN"} || "dbi:SQLite:${db_file}"; |
17 | my $dbuser = $ENV{"DBICTEST_DBUSER"} || ''; |
18 | my $dbpass = $ENV{"DBICTEST_DBPASS"} || ''; |
19 | |
20 | # my $dsn = "dbi:SQLite:${db_file}"; |
1c339d71 |
21 | |
e673f011 |
22 | return DBICTest::Schema->compose_connection('DBICTest' => $dsn, $dbuser, $dbpass); |
1c339d71 |
23 | } |
24 | |
510ca912 |
25 | 1; |