#! perl

use Test::More;

use MooseX::amine;
use lib './t/lib';

my $mex = MooseX::amine->new( 'Test::Basic::ObjectOverridingRole' );

isa_ok( $mex , 'MooseX::amine' );

my $expected_data_structure = {
  attributes => {
    role_attribute => {
      accessor => 'role_attribute',
      from     => 'Test::Basic::ObjectOverridingRole',
      meta     => {
        constraint    => 'Int' ,
        documentation => 'overridden attribute' ,
      } ,
    } ,
  },
  methods => {
    role_method => {
      from => 'Test::Basic::ObjectOverridingRole' ,
      code => qq|sub role_method  { return 'override' }| ,
    } ,
  } ,
};
is_deeply( $mex->examine , $expected_data_structure , 'see expected output from examine()' );

done_testing();