[dbsrgits/DBIx-Class.git] / t / lib / DBICTest / Plain.pm

package # hide from PAUSE 
    DBICTest::Plain;

use strict;
use warnings;
use base qw/DBIx::Class::Schema/;
use DBI;

my $db_file = "t/var/Plain.db";

unlink($db_file) if -e $db_file;
unlink($db_file . "-journal") if -e $db_file . "-journal";
mkdir("t/var") unless -d "t/var";

my $dsn = "dbi:SQLite:${db_file}";

__PACKAGE__->load_classes("Test");
my $schema = __PACKAGE__->compose_connection(
  __PACKAGE__,
  $dsn,
  undef,
  undef,
  { AutoCommit => 1 }
);

my $dbh = DBI->connect($dsn);

my $sql = <<EOSQL;
CREATE TABLE test (
  id INTEGER NOT NULL,
  name VARCHAR(32) NOT NULL
);

INSERT INTO test (id, name) VALUES (1, 'DBIC::Plain is broken!');

EOSQL

$dbh->do($_) for split(/\n\n/, $sql);

1;
Commit	Line	Data
c6d74d3e	1	package # hide from PAUSE
c6d74d3e	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;