summaryrefslogtreecommitdiff
path: root/t/35-default-xs-bug.t
diff options
context:
space:
mode:
Diffstat (limited to 't/35-default-xs-bug.t')
-rw-r--r--t/35-default-xs-bug.t21
1 files changed, 21 insertions, 0 deletions
diff --git a/t/35-default-xs-bug.t b/t/35-default-xs-bug.t
new file mode 100644
index 0000000..7867db5
--- /dev/null
+++ b/t/35-default-xs-bug.t
@@ -0,0 +1,21 @@
+use strict;
+use warnings;
+
+use Test::More 0.88;
+
+use Params::Validate qw( :all );
+
+default_test();
+
+done_testing();
+
+sub default_test {
+ my ( $first, $second ) = validate_pos(
+ @_,
+ { type => SCALAR, optional => 1 },
+ { type => SCALAR, optional => 1, default => 'must be second one' },
+ );
+
+ is( $first, undef, '01 no default for first' );
+ is( $second, 'must be second one', '01 default for second' );
+}