Add various things

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

diff --git a/t/lib/Test/Mouse.pm b/t/lib/Test/Mouse.pm
index 83a5ca0..14f20ef 100644 (file)
--- a/t/lib/Test/Mouse.pm
+++ b/t/lib/Test/Mouse.pm
@@ -2,6 +2,7 @@ package Test::Mouse;
 \r
 use strict;\r
 use warnings;\r
+use Carp qw(croak);\r
 use Mouse::Util qw(find_meta does_role);\r
 \r
 use base qw(Test::Builder::Module);\r
@@ -24,6 +25,9 @@ sub meta_ok ($;$) {
 sub does_ok ($$;$) {\r
     my ($class_or_obj, $does, $message) = @_;\r
 \r
+    if(!defined $does){\r
+        croak "You must pass a role name";\r
+    }\r
     $message ||= "The object does $does";\r
 \r
     if (does_ok($class_or_obj)) {\r