Make sure wrapping twice works

[gitmo/Perl-Critic-Dynamic-Moose.git] / t / DynamicMoose / RequireMethodModifiers.run

diff --git a/t/DynamicMoose/RequireMethodModifiers.run b/t/DynamicMoose/RequireMethodModifiers.run
index ad9b1d1..31816b7 100644 (file)
--- a/t/DynamicMoose/RequireMethodModifiers.run
+++ b/t/DynamicMoose/RequireMethodModifiers.run
@@ -257,6 +257,25 @@ sub foo {}
 
 #-----------------------------------------------------------------------------
 
+## name Wrapping an implicit override twice
+## failures 1
+## cut
+
+package Parent;
+use Moose;
+
+sub foo {}
+
+package Child;
+use Moose;
+extends 'Parent';
+
+before foo => sub {};
+before foo => sub {};
+sub foo {}
+
+#-----------------------------------------------------------------------------
+
 ## name Imported functions
 ## failures 0
 ## cut