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 5b59485..31816b7 100644 (file)
--- a/t/DynamicMoose/RequireMethodModifiers.run
+++ b/t/DynamicMoose/RequireMethodModifiers.run
@@ -254,3 +254,38 @@ extends 'Parent';
 
 before foo => sub {};
 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
+
+package Parent;
+use Moose;
+use List::Util 'reduce';
+
+package Child;
+use Moose;
+extends 'Parent';
+use List::Util 'reduce';
+