1package make_dbictest_db; 2 3use strict; 4use warnings; 5use DBI; 6use dbixcsl_test_dir qw/$tdir/; 7 8eval { require DBD::SQLite }; 9my $class = $@ ? 'SQLite2' : 'SQLite'; 10 11my $fn = "$tdir/dbictest.db"; 12 13unlink($fn); 14our $dsn = "dbi:$class:dbname=$fn"; 15my $dbh = DBI->connect($dsn); 16$dbh->do ('PRAGMA SYNCHRONOUS = OFF'); 17 18$dbh->do($_) for ( 19 q|CREATE TABLE foo ( 20 fooid INTEGER PRIMARY KEY, 21 footext TEXT 22 )|, 23 q|CREATE TABLE bar ( 24 barid INTEGER PRIMARY KEY, 25 fooref INTEGER REFERENCES foo(fooid) 26 )|, 27 q|INSERT INTO foo VALUES (1,'Foo text for number 1')|, 28 q|INSERT INTO foo VALUES (2,'Foo record associated with the Bar with barid 3')|, 29 q|INSERT INTO foo VALUES (3,'Foo text for number 3')|, 30 q|INSERT INTO foo VALUES (4,'Foo text for number 4')|, 31 q|INSERT INTO bar VALUES (1,4)|, 32 q|INSERT INTO bar VALUES (2,3)|, 33 q|INSERT INTO bar VALUES (3,2)|, 34 q|INSERT INTO bar VALUES (4,1)|, 35); 36 37END { unlink($fn); } 38 391; 40