Moose-2.1405HEADMoose-2.1405master

1 files changed, 23 insertions, 0 deletions

diff --git a/t/exceptions/frame-leak.t b/t/exceptions/frame-leak.t
new file mode 100644
index 0000000..e11bd63
--- /dev/null
+++ b/t/exceptions/frame-leak.t
@@ -0,0 +1,23 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Fatal;
+use Test::Requires 'Test::Memory::Cycle';
+
+BEGIN {
+    plan skip_all => 'Leak tests fail under Devel::Cover' if $INC{'Devel/Cover.pm'};
+}
+
+{
+    package Foo;
+    use Moose;
+    has myattr => ( is => 'ro', required => 1 );
+}
+
+memory_cycle_ok(
+    exception { Foo->new() },
+    'exception objects do not leak arguments into Devel::StackTrace objects',
+);
+
+done_testing;