1 files changed, 60 insertions, 0 deletions
diff --git a/t/release-xs-stack-realloc.t b/t/release-xs-stack-realloc.t
new file mode 100644
index 0000000..3441157
--- /dev/null
+++ b/t/release-xs-stack-realloc.t
@@ -0,0 +1,60 @@
+
+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 {
+    $ENV{PARAMS_VALIDATE_IMPLEMENTATION} = 'XS';
+    $ENV{PV_WARN_FAILED_IMPLEMENTATION}  = 1;
+}
+
+use Params::Validate qw( validate_with );
+
+my $alloc_size;
+for my $i ( 0 .. 15 ) {
+    $alloc_size = 2**$i;
+    test_array_spec(undef);
+}
+
+ok( 1, 'array validation succeeded with stack realloc' );
+
+for my $i ( 0 .. 15 ) {
+    $alloc_size = 2**$i;
+    test_hash_spec( a => undef );
+}
+
+ok( 1, 'hash validation succeeded with stack realloc' );
+
+done_testing();
+
+sub grow_stack {
+    my @stuff = (1) x $alloc_size;
+
+    # "validation" always succeeds - we just need the stack to grow inside a
+    # callback to trigger the bug.
+    return 1;
+}
+
+sub test_array_spec {
+    my @args = validate_with(
+        params => \@_,
+        spec   => [ { callbacks => { grow_stack => \&grow_stack } } ],
+    );
+}
+
+sub test_hash_spec {
+    my %args = validate_with(
+        params => \@_,
+        spec   => {
+            a => { callbacks => { grow_stack => \&grow_stack } },
+        },
+    );
+}