1 files changed, 105 insertions, 0 deletions
diff --git a/t/release-memory-leak.t b/t/release-memory-leak.t
new file mode 100644
index 0000000..0543aab
--- /dev/null
+++ b/t/release-memory-leak.t
@@ -0,0 +1,105 @@
+
+BEGIN {
+  unless ($ENV{RELEASE_TESTING}) {
+    require Test::More;
+    Test::More::plan(skip_all => 'these tests are for release candidate testing');
+  }
+}
+
+use strict;
+use warnings;
+
+use Test::More;
+
+BEGIN {
+    plan skip_all => q{Test::LeakTrace doesn't install with blead (as of 5.21.8)}
+        if $] >= 5.021008;
+}
+
+use Test::LeakTrace qw( no_leaks_ok );
+
+use Params::Validate qw( validate );
+
+subtest(
+    'callback with default error' => sub {
+        no_leaks_ok( sub { val1( foo => 42 ); }, 'validation passes' );
+        local $TODO = 'Not sure if all the leaks are in Carp or not';
+        no_leaks_ok(
+            sub {
+                eval { val1( foo => 'forty two' ) };
+            },
+            'validation fails'
+        );
+    },
+);
+
+subtest(
+    'callback that dies with string' => sub {
+        no_leaks_ok( sub { val2( foo => 42 ); }, 'validation passes' );
+        local $TODO = 'Not sure if all the leaks are in Carp or not';
+        no_leaks_ok(
+            sub {
+                eval { val2( foo => 'forty two' ) };
+            },
+            'validation fails'
+        );
+    },
+);
+
+subtest(
+    'callback that dies with object' => sub {
+        no_leaks_ok( sub { val3( foo => 42 ); }, 'validation passes' );
+        no_leaks_ok(
+            sub {
+                eval { val3( foo => 'forty two' ) };
+            },
+            'validation fails'
+        );
+    },
+);
+
+done_testing();
+
+sub val1 {
+    validate(
+        @_,
+        {
+            foo => {
+                callbacks => {
+                    'is int' => sub { $_[0] =~ /^[0-9]+$/ }
+                }
+            },
+        },
+    );
+}
+
+sub val2 {
+    validate(
+        @_,
+        {
+            foo => {
+                callbacks => {
+                    'is int' => sub {
+                        $_[0] =~ /^[0-9]+$/ or die "$_[0] is not an integer";
+                    }
+                }
+            },
+        },
+    );
+}
+
+sub val3 {
+    validate(
+        @_,
+        {
+            foo => {
+                callbacks => {
+                    'is int' => sub {
+                        $_[0] =~ /^[0-9]+$/
+                            or die { error => "$_[0] is not an integer" };
+                    }
+                }
+            },
+        },
+    );
+}