merge trunk to pluggable errors

[gitmo/Moose.git] / t / 000_recipes / roles / 001_roles.t

diff --git a/t/000_recipes/010_roles.t b/t/000_recipes/roles/001_roles.t
similarity index 97%
rename from t/000_recipes/010_roles.t
rename to t/000_recipes/roles/001_roles.t
index 5b8f9d2..6f89b83 100644 (file)
--- a/t/000_recipes/010_roles.t
+++ b/t/000_recipes/roles/001_roles.t
@@ -3,12 +3,10 @@
 use strict;
 use warnings;
 
-use Test::More tests => 62;
+use Test::More tests => 63;
 use Test::Exception;
 
-BEGIN {
-    use_ok('Moose');           
-}
+
 
 ## Roles
 
@@ -91,6 +89,9 @@ ok(US::Currency->does('Printable'), '... US::Currency does Printable');
 my $hundred = US::Currency->new(amount => 100.00);
 isa_ok($hundred, 'US::Currency');
 
+ok( $hundred->DOES("US::Currency"), "UNIVERSAL::DOES for class" );
+ok( $hundred->DOES("Comparable"), "UNIVERSAL::DOES for role" );
+
 can_ok($hundred, 'amount');
 is($hundred->amount, 100, '... got the right amount');