[dbsrgits/DBIx-Class-DeploymentHandler.git] / t / migration_schema / from_current.t

#!perl

use strict;
use warnings;

use Test::More;

use lib 't/lib';

use aliased 'DBIx::Class::DeploymentHandler::MigrationSchema::FromCurrent';

my $ref = \'';
my $ms = FromCurrent->new({
   schema => $ref,
});

ok($ms, 'MigrationSchema gets instantiated');
is($ref, $ms->migration_schema, 'migration schema correctly passed through schema');

done_testing;
Commit	Line	Data
087d8c8a	1	#!perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More;
	7
	8	use lib 't/lib';
	9
	10	use aliased 'DBIx::Class::DeploymentHandler::MigrationSchema::FromCurrent';
	11
	12	my $ref = \'';
	13	my $ms = FromCurrent->new({
	14	schema => $ref,
	15	});
	16
	17	ok($ms, 'MigrationSchema gets instantiated');
	18	is($ref, $ms->migration_schema, 'migration schema correctly passed through schema');
	19
	20	done_testing;