X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=t%2Flib%2FTest%2FMouse.pm;h=14f20ef674d96baa0a0611e2c4f4431aacf72f7e;hp=83a5ca013a645d53c4163696c075b981ab8ca192;hb=7a50b45027c9f7baad76cfce7f78c822bd38f0a7;hpb=60b5c3be4d0b3bb705df1e8d977f2ce90db6668d

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