more thorough testing that overloads aren't overwritten

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

diff --git a/t/role-tiny.t b/t/role-tiny.t
index fdc23fd..f93cc78 100644 (file)
--- a/t/role-tiny.t
+++ b/t/role-tiny.t
@@ -10,8 +10,6 @@ BEGIN {
 
   requires qw(req1 req2);
 
-  around foo => sub { my $orig = shift; join ' ', 'role foo', $orig->(@_) };
-
   sub bar { 'role bar' }
 
   sub baz { 'role baz' }
@@ -67,7 +65,6 @@ sub try_apply_to {
 }
 
 is(try_apply_to('MyClass'), undef, 'role applies cleanly');
-is(MyClass->foo, 'role foo class foo', 'method modifier');
 is(MyClass->bar, 'role bar', 'method from role');
 is(MyClass->baz, 'class baz', 'method from class');
 ok(MyClass->does('MyRole'), 'class does role');
@@ -95,5 +92,9 @@ is exception {
 isa_ok($new_class, 'MyClass');
 is($new_class->extra1, 'role extra', 'method from role');
 
+ok(Role::Tiny->is_role('MyRole'), 'is_role true for roles');
+ok(!Role::Tiny->is_role('MyClass'), 'is_role false for classes');
+
+
 done_testing;