X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2FDBICTest.pm;h=0afc6045cfe8a72a20a12683e24b4a0458ccefa7;hb=30126ac7b856d95f9234188363aca54a4d190610;hp=ecd43503fd187be3888f3fd9ddfdee31dcc2ac9c;hpb=976f3686e7ec91a244412ddafff7783f05e48e31;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/t/lib/DBICTest.pm b/t/lib/DBICTest.pm index ecd4350..0afc604 100755 --- a/t/lib/DBICTest.pm +++ b/t/lib/DBICTest.pm @@ -1,120 +1 @@ -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}"; - -DBICTest::Schema->compose_connection('DBICTest' => "dbi:SQLite:${db_file}"); - -my $dbh = DBI->connect($dsn); - -my $sql = <do($_) for split(/\n\n/, $sql); - 1;