Commit | Line | Data |
50041f3c |
1 | package DBICTest::Plain; |
2 | |
3 | use strict; |
4 | use warnings; |
1752dc15 |
5 | use base qw/DBIx::Class::Schema/; |
50041f3c |
6 | use DBI; |
7 | |
8 | my $db_file = "t/var/Plain.db"; |
9 | |
10 | unlink($db_file) if -e $db_file; |
11 | unlink($db_file . "-journal") if -e $db_file . "-journal"; |
12 | mkdir("t/var") unless -d "t/var"; |
13 | |
14 | my $dsn = "dbi:SQLite:${db_file}"; |
15 | |
fc69fea6 |
16 | __PACKAGE__->load_classes("Test"); |
50041f3c |
17 | my $schema = __PACKAGE__->compose_connection(__PACKAGE__, $dsn); |
18 | |
19 | my $dbh = DBI->connect($dsn); |
20 | |
21 | my $sql = <<EOSQL; |
22 | CREATE TABLE test ( |
23 | id INTEGER NOT NULL, |
24 | name VARCHAR(32) NOT NULL |
25 | ); |
26 | |
27 | INSERT INTO test (id, name) VALUES (1, 'DBIC::Plain is broken!'); |
28 | |
29 | EOSQL |
30 | |
31 | $dbh->do($_) for split(/\n\n/, $sql); |
32 | |
33 | 1; |