X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Fmake_dbictest_db.pm;h=66132882f4ca9c746faa873f6368622b781d53c4;hb=fa994d3c6ada53f4610e6384fe924d4bf8163a68;hp=a796ba9d02c11c2020e5215dc235a0275806107c;hpb=fd64d90d6e091f7036d297a23008648f38259793;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/t/lib/make_dbictest_db.pm b/t/lib/make_dbictest_db.pm index a796ba9..6613288 100644 --- a/t/lib/make_dbictest_db.pm +++ b/t/lib/make_dbictest_db.pm @@ -10,8 +10,8 @@ my $class = $@ ? 'SQLite2' : 'SQLite'; my $fn = './t/dbictest.db'; unlink($fn); - -my $dbh = DBI->connect("dbi:$class:dbname=./t/dbictest.db"); +our $dsn = "dbi:$class:dbname=$fn"; +my $dbh = DBI->connect($dsn); $dbh->do($_) for ( q|CREATE TABLE foo ( @@ -23,7 +23,7 @@ $dbh->do($_) for ( fooref INTEGER REFERENCES foo(fooid) )|, q|INSERT INTO foo VALUES (1,'Foo text for number 1')|, - q|INSERT INTO foo VALUES (2,'This is the text of the only Foo record associated with the Bar with barid 3')|, + q|INSERT INTO foo VALUES (2,'Foo record associated with the Bar with barid 3')|, q|INSERT INTO foo VALUES (3,'Foo text for number 3')|, q|INSERT INTO foo VALUES (4,'Foo text for number 4')|, q|INSERT INTO bar VALUES (1,4)|,