From: Matt S Trout Date: Sat, 14 Jan 2006 05:33:29 +0000 (+0000) Subject: And the inevitable missing svk add X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4d9d84d59eec096d3e96fb4358c6dad33b435c03;p=dbsrgits%2FDBIx-Class-Historic.git And the inevitable missing svk add --- diff --git a/t/lib/DBICTest/Setup.pm b/t/lib/DBICTest/Setup.pm new file mode 100755 index 0000000..bcca718 --- /dev/null +++ b/t/lib/DBICTest/Setup.pm @@ -0,0 +1,131 @@ +use strict; +use warnings; +use DBICTest::Schema; + +my $db_file = "t/var/DBIxClass.db"; + +unlink($db_file) if -e $db_file; +unlink($db_file . "-journal") if -e $db_file . "-journal"; +mkdir("t/var") unless -d "t/var"; + +my $dsn = "dbi:SQLite:${db_file}"; + +my $schema = DBICTest::Schema->compose_connection('DBICTest' => $dsn); + +my $dbh = DBI->connect($dsn); + +my $sql = <do($_) for split(/\n\n/, $sql); + +$schema->storage->dbh->do("PRAGMA synchronous = OFF"); + +1;