summaryrefslogtreecommitdiff
path: root/t/37-exports.t
diff options
context:
space:
mode:
Diffstat (limited to 't/37-exports.t')
-rw-r--r--t/37-exports.t52
1 files changed, 52 insertions, 0 deletions
diff --git a/t/37-exports.t b/t/37-exports.t
new file mode 100644
index 0000000..4715090
--- /dev/null
+++ b/t/37-exports.t
@@ -0,0 +1,52 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Params::Validate ();
+
+my @types = qw(
+ SCALAR
+ ARRAYREF
+ HASHREF
+ CODEREF
+ GLOB
+ GLOBREF
+ SCALARREF
+ HANDLE
+ BOOLEAN
+ UNDEF
+ OBJECT
+);
+
+my @subs = qw(
+ validate
+ validate_pos
+ validation_options
+ validate_with
+);
+
+is_deeply(
+ [ sort @Params::Validate::EXPORT_OK ],
+ [ sort @types, @subs, 'set_options' ],
+ '@EXPORT_OK'
+);
+
+is_deeply(
+ [ sort keys %Params::Validate::EXPORT_TAGS ],
+ [qw( all types )],
+ 'keys %EXPORT_TAGS'
+);
+
+is_deeply(
+ [ sort @{ $Params::Validate::EXPORT_TAGS{all} } ],
+ [ sort @types, @subs ],
+ '$EXPORT_TAGS{all}',
+);
+
+is_deeply(
+ [ sort @{ $Params::Validate::EXPORT_TAGS{types} } ],
+ [ sort @types ],
+ '$EXPORT_TAGS{types}',
+);
+
+done_testing();