diff options
Diffstat (limited to 't/37-exports.t')
-rw-r--r-- | t/37-exports.t | 52 |
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(); |