fixup! fixup! add method modifiers test

[gitmo/Moo.git] / xt / handle_moose.t

diff --git a/xt/handle_moose.t b/xt/handle_moose.t
index 75400e5..34ea480 100644 (file)
--- a/xt/handle_moose.t
+++ b/xt/handle_moose.t
@@ -1,4 +1,5 @@
 use strictures 1;
+use Test::Exception;
 
 BEGIN { require "t/moo-accessors.t"; }
 
@@ -24,4 +25,26 @@ my $spoon = Spoon->new(four => 4);
 
 is($spoon->four, 4, 'Role application ok');
 
+{
+   package MooRequiresFour;
+
+   use Moo::Role;
+
+   requires 'four';
+
+   package MooRequiresGunDog;
+
+   use Moo::Role;
+
+   requires 'gun_dog';
+}
+
+lives_ok {
+   Moose::Util::apply_all_roles($meta, 'MooRequiresFour');
+} 'apply role with satisified requirement';
+
+dies_ok {
+   Moose::Util::apply_all_roles($meta, 'MooRequiresGunDog');
+} 'apply role with unsatisified requirement';
+
 done_testing;