t/06_dynamicmodel_interface.t

   1 use strict;
   2 use warnings;
   3
   4 use FindBin qw/$Bin/;
   5 use lib "$Bin/lib";
   6 use Data::Dumper;
   7
   8 use Test::More tests => 2;
   9
  10 BEGIN { use_ok('ModelsFromConfigInterfaceApp'); }
  11
  12 my $config = ModelsFromConfigInterfaceApp->config;
  13
  14 my $expected = {
  15     name => 'ModelsFromConfigInterfaceApp',
  16     'Model::One' => {
  17         class => 'SomeModelClass',
  18         interface_roles => [qw/ SomeModelClassInterface /],
  19     },
  20 };
  21
  22 is_deeply($config, $expected, 'Config is not munged')
  23     or warn Dumper([$config, $expected]);
  24