Dogcows Code - chaz/p5-DBIx-Class-ResultSet-RecursiveUpdate/blob - t/lib/DBICTest/Plain.pm

   1 package # hide from PAUSE
   2     DBICTest::Plain;
   3
   4 use strict;
   5 use warnings;
   6 use base qw/DBIx::Class::Schema/;
   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
  17 __PACKAGE__->load_classes("Test");
  18 my $schema = __PACKAGE__->compose_connection(
  19   __PACKAGE__,
  20   $dsn,
  21   undef,
  22   undef,
  23   { AutoCommit => 1 }
  24 );
  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;