t/role-tiny-with.t

   1 use strictures 1;
   2 use Test::More;
   3
   4 BEGIN {
   5   package MyRole;
   6
   7   use Role::Tiny;
   8
   9   sub bar { 'role bar' }
  10
  11   sub baz { 'role baz' }
  12 }
  13
  14 BEGIN {
  15   package MyClass;
  16
  17   use Role::Tiny::With;
  18
  19   with 'MyRole';
  20
  21   sub foo { 'class foo' }
  22
  23   sub baz { 'class baz' }
  24
  25 }
  26
  27 is(MyClass->foo, 'class foo', 'method from class no override');
  28 is(MyClass->bar, 'role bar',  'method from role');
  29 is(MyClass->baz, 'class baz', 'method from class');
  30
  31 done_testing;