[dbsrgits/DBIx-Class-DeploymentHandler.git] / t / 02-instantiation.t

#!perl

use Test::More;
use Test::Exception;

use lib 't/lib';
use DBICTest;
use DBIx::Class::DeploymentHandler;
my $db = 'dbi:SQLite:db.db';
my $sql_dir = 't/sql';

VERSION1: {
	use_ok 'DBICVersion_v1';
	my $s = DBICVersion::Schema->connect($db);
	ok($s, 'DBICVersion::Schema 1.0 instantiates correctly');
	my $handler = DBIx::Class::DeploymentHandler->new({
		upgrade_directory => $sql_dir,
		schema => $s,
		databases => ['SQLite'],
	});

	ok($handler, 'DBIx::Class::DeploymentHandler w/1.0 instantiates correctly');

	my $version = $s->schema_version();
	$handler->create_ddl_dir( $version, 0);
	ok(-e 't/sql/DBICVersion-Schema-1.0-SQLite.sql', 'DDL for 1.0 got created successfully');

	dies_ok {
		$s->resultset('Foo')->create({
			bar => 'frew',
		})
	} 'schema not deployed';
	$handler->install;
	lives_ok {
		$s->resultset('Foo')->create({
			bar => 'frew',
		})
	} 'schema is deployed';
}

VERSION2: {
	use_ok 'DBICVersion_v2';
	my $s = DBICVersion::Schema->connect($db);
	ok($s, 'DBICVersion::Schema 2.0 instantiates correctly');
	my $handler = DBIx::Class::DeploymentHandler->new({
		upgrade_directory => $sql_dir,
		schema => $s,
		databases => ['SQLite'],
	});

	ok($handler, 'DBIx::Class::DeploymentHandler w/2.0 instantiates correctly');

	$version = $s->schema_version();
	$handler->create_ddl_dir($version, 0);
	$handler->create_ddl_dir($version, '1.0');
	ok(-e 't/sql/DBICVersion-Schema-2.0-SQLite.sql', 'DDL for 2.0 got created successfully');
	ok(-e 't/sql/DBICVersion-Schema-1.0-2.0-SQLite.sql', 'DDL for migration from 1.0 to 2.0 got created successfully');
	dies_ok {
		$s->resultset('Foo')->create({
			bar => 'frew',
			baz => 'frew',
		})
	} 'schema not deployed';
	#$handler->install('1.0');
	dies_ok {
		$s->resultset('Foo')->create({
			bar => 'frew',
			baz => 'frew',
		})
	} 'schema not uppgrayyed';
	$handler->upgrade_single_step('1.0', '2.0');
	lives_ok {
		$s->resultset('Foo')->create({
			bar => 'frew',
			baz => 'frew',
		})
	} 'schema is deployed';
}

VERSION3: {
	use_ok 'DBICVersion_v3';
	my $s = DBICVersion::Schema->connect($db);
	ok($s, 'DBICVersion::Schema 3.0 instantiates correctly');
	my $handler = DBIx::Class::DeploymentHandler->new({
		upgrade_directory => $sql_dir,
		schema => $s,
		databases => ['SQLite'],
	});

	ok($handler, 'DBIx::Class::DeploymentHandler w/3.0 instantiates correctly');

	$version = $s->schema_version();
	$handler->create_ddl_dir( $version, 0);
	$handler->create_ddl_dir( $version, '1.0');
	$handler->create_ddl_dir( $version, '2.0');
	ok(-e 't/sql/DBICVersion-Schema-3.0-SQLite.sql', 'DDL for 3.0 got created successfully');
	ok(-e 't/sql/DBICVersion-Schema-1.0-3.0-SQLite.sql', 'DDL for migration from 1.0 to 3.0 got created successfully');
	ok(-e 't/sql/DBICVersion-Schema-2.0-3.0-SQLite.sql', 'DDL for migration from 2.0 to 3.0 got created successfully');
	dies_ok {
		$s->resultset('Foo')->create({
				bar => 'frew',
				baz => 'frew',
				biff => 'frew',
			})
	} 'schema not deployed';
	$handler->upgrade;
	lives_ok {
		$s->resultset('Foo')->create({
			bar => 'frew',
			baz => 'frew',
			biff => 'frew',
		})
	} 'schema is deployed';
}

done_testing;
__END__

vim: ts=2,sw=2,expandtab
Commit	Line	Data
b974984a	1	#!perl
	2
	3	use Test::More;
239acef9	4	use Test::Exception;
b974984a	5
	6	use lib 't/lib';
	7	use DBICTest;
	8	use DBIx::Class::DeploymentHandler;
4ea147c6	9	my $db = 'dbi:SQLite:db.db';
e0743c25	10	my $sql_dir = 't/sql';
b974984a	11
e0743c25	12	VERSION1: {
e0743c25	13	use_ok 'DBICVersion_v1';
4ea147c6	14	my $s = DBICVersion::Schema->connect($db);
e0743c25	15	ok($s, 'DBICVersion::Schema 1.0 instantiates correctly');
e0743c25	16	my $handler = DBIx::Class::DeploymentHandler->new({
4ea147c6	17	upgrade_directory => $sql_dir,
e0743c25	18	schema => $s,
9e401dc2	19	databases => ['SQLite'],
e0743c25	20	});
	21
	22	ok($handler, 'DBIx::Class::DeploymentHandler w/1.0 instantiates correctly');
	23
	24	my $version = $s->schema_version();
9e401dc2	25	$handler->create_ddl_dir( $version, 0);
e0743c25	26	ok(-e 't/sql/DBICVersion-Schema-1.0-SQLite.sql', 'DDL for 1.0 got created successfully');
239acef9	27
	28	dies_ok {
	29	$s->resultset('Foo')->create({
	30	bar => 'frew',
	31	})
	32	} 'schema not deployed';
	33	$handler->install;
	34	lives_ok {
	35	$s->resultset('Foo')->create({
	36	bar => 'frew',
	37	})
	38	} 'schema is deployed';
e0743c25	39	}
	40
	41	VERSION2: {
	42	use_ok 'DBICVersion_v2';
4ea147c6	43	my $s = DBICVersion::Schema->connect($db);
e0743c25	44	ok($s, 'DBICVersion::Schema 2.0 instantiates correctly');
e0743c25	45	my $handler = DBIx::Class::DeploymentHandler->new({
4ea147c6	46	upgrade_directory => $sql_dir,
e0743c25	47	schema => $s,
9e401dc2	48	databases => ['SQLite'],
e0743c25	49	});
	50
	51	ok($handler, 'DBIx::Class::DeploymentHandler w/2.0 instantiates correctly');
	52
	53	$version = $s->schema_version();
9e401dc2	54	$handler->create_ddl_dir($version, 0);
9e401dc2	55	$handler->create_ddl_dir($version, '1.0');
e0743c25	56	ok(-e 't/sql/DBICVersion-Schema-2.0-SQLite.sql', 'DDL for 2.0 got created successfully');
e0743c25	57	ok(-e 't/sql/DBICVersion-Schema-1.0-2.0-SQLite.sql', 'DDL for migration from 1.0 to 2.0 got created successfully');
239acef9	58	dies_ok {
	59	$s->resultset('Foo')->create({
	60	bar => 'frew',
	61	baz => 'frew',
	62	})
	63	} 'schema not deployed';
4ea147c6	64	#$handler->install('1.0');
	65	dies_ok {
	66	$s->resultset('Foo')->create({
	67	bar => 'frew',
	68	baz => 'frew',
	69	})
	70	} 'schema not uppgrayyed';
	71	$handler->upgrade_single_step('1.0', '2.0');
239acef9	72	lives_ok {
	73	$s->resultset('Foo')->create({
	74	bar => 'frew',
	75	baz => 'frew',
	76	})
	77	} 'schema is deployed';
e0743c25	78	}
	79
	80	VERSION3: {
	81	use_ok 'DBICVersion_v3';
4ea147c6	82	my $s = DBICVersion::Schema->connect($db);
e0743c25	83	ok($s, 'DBICVersion::Schema 3.0 instantiates correctly');
e0743c25	84	my $handler = DBIx::Class::DeploymentHandler->new({
4ea147c6	85	upgrade_directory => $sql_dir,
e0743c25	86	schema => $s,
9e401dc2	87	databases => ['SQLite'],
e0743c25	88	});
	89
	90	ok($handler, 'DBIx::Class::DeploymentHandler w/3.0 instantiates correctly');
	91
	92	$version = $s->schema_version();
9e401dc2	93	$handler->create_ddl_dir( $version, 0);
	94	$handler->create_ddl_dir( $version, '1.0');
	95	$handler->create_ddl_dir( $version, '2.0');
e0743c25	96	ok(-e 't/sql/DBICVersion-Schema-3.0-SQLite.sql', 'DDL for 3.0 got created successfully');
	97	ok(-e 't/sql/DBICVersion-Schema-1.0-3.0-SQLite.sql', 'DDL for migration from 1.0 to 3.0 got created successfully');
	98	ok(-e 't/sql/DBICVersion-Schema-2.0-3.0-SQLite.sql', 'DDL for migration from 2.0 to 3.0 got created successfully');
239acef9	99	dies_ok {
239acef9	100	$s->resultset('Foo')->create({
4ea147c6	101	bar => 'frew',
	102	baz => 'frew',
	103	biff => 'frew',
	104	})
239acef9	105	} 'schema not deployed';
8636376a	106	$handler->upgrade;
239acef9	107	lives_ok {
	108	$s->resultset('Foo')->create({
	109	bar => 'frew',
	110	baz => 'frew',
	111	biff => 'frew',
	112	})
	113	} 'schema is deployed';
e0743c25	114	}
b974984a	115
b974984a	116	done_testing;
4ea147c6	117	__END__
	118
	119	vim: ts=2,sw=2,expandtab