add basic unit tests for MigrationSchema

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

diff --git a/t/migration_schema/from_current.t b/t/migration_schema/from_current.t
new file mode 100644 (file)
index 0000000..14fd8ac
--- /dev/null
+++ b/t/migration_schema/from_current.t
@@ -0,0 +1,20 @@
+#!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;