t/lib/DBICTest/Plain.pm

   1 package DBICTest::Plain;
   2
   3 use strict;
   4 use warnings;
   5 use base qw/DBIx::Class::Schema/;
   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
  16 __PACKAGE__->load_classes("Test");
  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;