1 package TreeTest::Schema;
5 use base qw( DBIx::Class::Schema );
7 __PACKAGE__->load_classes();
12 my $db_file = 't/var/test.db';
14 unlink($db_file) if -e $db_file;
15 unlink($db_file . '-journal') if -e $db_file . '-journal';
16 mkdir("t/var") unless -d "t/var";
18 my $dsn = "dbi:SQLite:$db_file";
19 my $schema = $self->next::method( $dsn );
21 $schema->storage->on_connect_do([ "PRAGMA synchronous = OFF" ]);
23 my $dbh = $schema->storage->dbh;
24 open SQL, "t/lib/sqlite.sql";
26 { local $/ = undef; $sql = <SQL>; }
28 $dbh->do($_) for split(/\n\n/, $sql);
30 $schema->storage->dbh->do("PRAGMA synchronous = OFF");