1 files changed, 121 insertions, 0 deletions
diff --git a/t/24-tied.t b/t/24-tied.t
new file mode 100644
index 0000000..85b6825
--- /dev/null
+++ b/t/24-tied.t
@@ -0,0 +1,121 @@
+use strict;
+use warnings;
+
+use Params::Validate qw(validate validate_pos SCALAR);
+use Test::More;
+
+{
+    package Tie::SimpleArray;
+    use Tie::Array;
+    use base 'Tie::StdArray';
+}
+
+{
+
+    package Tie::SimpleHash;
+    use Tie::Hash;
+    use base 'Tie::StdHash';
+}
+
+{
+    tie my @p, 'Tie::SimpleArray';
+
+    my %spec = ( foo => 1 );
+    push @p, ( foo => 'hello' );
+
+    eval { validate( @p, \%spec ) };
+    warn $@ if $@;
+    is(
+        $@, q{},
+        'validate() call succeeded with tied params array and regular hashref spec'
+    );
+}
+
+SKIP:
+{
+    skip 'Params::Validate segfaults with tied hash for spec', 1;
+
+    my @p;
+    tie my %spec, 'Tie::SimpleHash';
+
+    $spec{foo} = 1;
+    push @p, ( foo => 'hello' );
+
+    eval { validate( @p, \%spec ) };
+    warn $@ if $@;
+    is(
+        $@, q{},
+        'validate() call succeeded with regular params array and tied hashref spec'
+    );
+}
+
+SKIP:
+{
+    skip 'Params::Validate segfaults with tied hash for spec', 1;
+
+    tie my @p,    'Tie::SimpleArray';
+    tie my %spec, 'Tie::SimpleHash';
+
+    $spec{foo} = 1;
+    push @p, ( foo => 'hello' );
+
+    eval { validate( @p, \%spec ) };
+    warn $@ if $@;
+    is(
+        $@, q{},
+        'validate() call succeeded with tied params array and tied hashref spec'
+    );
+}
+
+{
+    tie my @p, 'Tie::SimpleArray';
+    my %spec;
+
+    $spec{type} = SCALAR;
+    push @p, 'hello';
+
+    eval { validate_pos( @p, \%spec ) };
+    warn $@ if $@;
+    is(
+        $@, q{},
+        'validate_pos() call succeeded with tied params array and regular hashref spec'
+    );
+}
+
+SKIP:
+{
+    skip 'Params::Validate segfaults with tied hash for spec', 1;
+
+    my @p;
+    tie my %spec, 'Tie::SimpleHash';
+
+    $spec{type} = SCALAR;
+    push @p, 'hello';
+
+    eval { validate_pos( @p, \%spec ) };
+    warn $@ if $@;
+    is(
+        $@, q{},
+        'validate_pos() call succeeded with regular params array and tied hashref spec'
+    );
+}
+
+SKIP:
+{
+    skip 'Params::Validate segfaults with tied hash for spec', 1;
+
+    tie my @p,    'Tie::SimpleArray';
+    tie my %spec, 'Tie::SimpleHash';
+
+    $spec{type} = SCALAR;
+    push @p, 'hello';
+
+    eval { validate_pos( @p, \%spec ) };
+    warn $@ if $@;
+    is(
+        $@, q{},
+        'validate_pos() call succeeded with tied params array and tied hashref spec'
+    );
+}
+
+done_testing();