t/migration_schema/from_current.t

   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;