[gitmo/Role-Tiny.git] / t / role-tiny-composition.t

use strictures 1;
use Test::More;
use Test::Fatal;

{
  package R1;
  use Role::Tiny;

  sub foo {}

  $INC{"R1.pm"} = __FILE__;
}

{
  package R2;
  use Role::Tiny;

  sub foo {}

  $INC{"R2.pm"} = __FILE__;
}

{
  package X;
  sub new {
      bless {} => shift
  }
}

ok(exception { Role::Tiny->apply_roles_to_object(X->new, "R1", "R2") }, 'apply conflicting roles to object');

done_testing;
Commit	Line	Data
471419f6	1	use strictures 1;
	2	use Test::More;
	3	use Test::Fatal;
	4
	5	{
	6	package R1;
	7	use Role::Tiny;
	8
	9	sub foo {}
	10
	11	$INC{"R1.pm"} = __FILE__;
	12	}
	13
	14	{
	15	package R2;
	16	use Role::Tiny;
	17
	18	sub foo {}
	19
	20	$INC{"R2.pm"} = __FILE__;
	21	}
	22
	23	{
	24	package X;
	25	sub new {
	26	bless {} => shift
	27	}
	28	}
	29
	30	ok(exception { Role::Tiny->apply_roles_to_object(X->new, "R1", "R2") }, 'apply conflicting roles to object');
	31
	32	done_testing;