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