1 package DBICTest::Plain;
5 use base qw/DBIx::Class::Schema/;
8 my $db_file = "t/var/Plain.db";
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";
14 my $dsn = "dbi:SQLite:${db_file}";
16 __PACKAGE__->load_classes("Test");
17 my $schema = __PACKAGE__->compose_connection(__PACKAGE__, $dsn);
19 my $dbh = DBI->connect($dsn);
24 name VARCHAR(32) NOT NULL
27 INSERT INTO test (id, name) VALUES (1, 'DBIC::Plain is broken!');
31 $dbh->do($_) for split(/\n\n/, $sql);