Refactor many many things

[gitmo/Mouse.git] / t / lib / Test / Mouse.pm

diff --git a/t/lib/Test/Mouse.pm b/t/lib/Test/Mouse.pm
index a538ec3..8d219dd 100644 (file)
--- a/t/lib/Test/Mouse.pm
+++ b/t/lib/Test/Mouse.pm
@@ -30,7 +30,7 @@ sub does_ok ($$;$) {
     }
     $message ||= "The object does $does";
 
-    if (does_ok($class_or_obj)) {
+    if (does_role($class_or_obj, $does)) {
         return __PACKAGE__->builder->ok(1, $message)
     }
     else {
@@ -72,6 +72,11 @@ sub export_type_constraints_as_functions { # TEST ONLY
     return;
 }
 
+package Mouse::Meta::Attribute;
+
+sub applied_traits{            $_[0]->{traits} } # TEST ONLY
+sub has_applied_traits{ exists $_[0]->{traits} } # TEST ONLY
+
 1;
 
 __END__