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