* s/can_role/does_role/g.

[gitmo/Moose.git] / lib / Test / Moose.pm

diff --git a/lib/Test/Moose.pm b/lib/Test/Moose.pm
index 9808b3a..e9694e2 100644 (file)
--- a/lib/Test/Moose.pm
+++ b/lib/Test/Moose.pm
@@ -1,7 +1,7 @@
 package Test::Moose;
 
 use Exporter;
-use Moose::Util qw/can_role/;
+use Moose::Util qw/does_role/;
 use Test::Builder;
 
 use strict;
@@ -34,7 +34,7 @@ sub import {
 sub does_ok ($$;$) {
   my ($class,$does,$name) = @_;
 
-  return $tester->ok (can_role ($class,$does),$name)
+  return $tester->ok (does_role ($class,$does),$name)
 }
 
 1;