1package make_dbictest_db_plural_tables; 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_plural_tables.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 foos ( 20 fooid INTEGER PRIMARY KEY, 21 footext TEXT DEFAULT 'footext', 22 foodt TIMESTAMP DEFAULT CURRENT_TIMESTAMP 23 )|, 24 q|CREATE TABLE bars ( 25 barid INTEGER PRIMARY KEY, 26 fooref INTEGER REFERENCES foos(fooid) 27 )|, 28 q|INSERT INTO foos (fooid, footext) VALUES (1,'Foo text for number 1')|, 29 q|INSERT INTO foos (fooid, footext) VALUES (2,'Foo record associated with the Bar with barid 3')|, 30 q|INSERT INTO foos (fooid, footext) VALUES (3,'Foo text for number 3')|, 31 q|INSERT INTO foos (fooid, footext) VALUES (4,'Foo text for number 4')|, 32 q|INSERT INTO bars VALUES (1,4)|, 33 q|INSERT INTO bars VALUES (2,3)|, 34 q|INSERT INTO bars VALUES (3,2)|, 35 q|INSERT INTO bars VALUES (4,1)|, 36); 37 38END { unlink($fn) unless $ENV{SCHEMA_LOADER_TESTS_NOCLEANUP}; } 39 401; 41