Role::Tiny::With try1

[gitmo/Moo.git] / t / role-tiny-with.t

diff --git a/t/role-tiny-with.t b/t/role-tiny-with.t
new file mode 100644 (file)
index 0000000..afca4e2
--- /dev/null
+++ b/t/role-tiny-with.t
@@ -0,0 +1,32 @@
+use strictures 1;
+use Test::More;
+use Test::Fatal;
+
+BEGIN {
+  package MyRole;
+
+  use Role::Tiny;
+
+  sub bar { 'role bar' }
+
+  sub baz { 'role baz' }
+}
+
+BEGIN {
+  package MyClass;
+
+  use Role::Tiny::With;
+
+  with 'MyRole';
+
+  sub foo { 'class foo' }
+
+  sub baz { 'class baz' }
+
+}
+
+is(MyClass->foo, 'class foo', 'method from class no override');
+is(MyClass->bar, 'role bar',  'method from role');
+is(MyClass->baz, 'class baz', 'method from class');
+
+done_testing;