1 package # hide from PAUSE
7 use DBICTest::Schema::Relationships;
11 my $db_file = "t/var/DBIxClass.db";
13 unlink($db_file) if -e $db_file;
14 unlink($db_file . "-journal") if -e $db_file . "-journal";
15 mkdir("t/var") unless -d "t/var";
17 my $dsn = $ENV{"DBICTEST_DSN"} || "dbi:SQLite:${db_file}";
18 my $dbuser = $ENV{"DBICTEST_DBUSER"} || '';
19 my $dbpass = $ENV{"DBICTEST_DBPASS"} || '';
21 my $schema = DBICTest::Schema->compose_connection('DBICTest' => $dsn, $dbuser, $dbpass);
23 $schema->auto_populate();