use strict;
use warnings;
use Test::More;

{
	package Person;
	use Moose;
	with 'Mongoose::Document';
	has 'address' => ( is=>'rw', isa=>'Address' );
}

{
	package Address;
	use Moose;
	with 'Mongoose::EmbeddedDocument';
}

package main;
is( Person->does('Mongoose::Document'), 1, 'does doc' );
is( Person->does('Mongoose::EmbeddedDocument'), 0, 'does not emb doc' );
is( Address->does('Mongoose::Document'), 1, 'does doc too' );
is( Address->does('Mongoose::EmbeddedDocument'), 1, 'does embdoc' );

done_testing;