diff options
Diffstat (limited to 't/03_all.t')
-rw-r--r-- | t/03_all.t | 56 |
1 files changed, 56 insertions, 0 deletions
diff --git a/t/03_all.t b/t/03_all.t new file mode 100644 index 0000000..0f8aab7 --- /dev/null +++ b/t/03_all.t @@ -0,0 +1,56 @@ +#!/usr/bin/perl + +use strict; +BEGIN { + $| = 1; + $^W = 1; + $ENV{PERL_PARAMS_UTIL_PP} ||= 0; +} + +use Test::More tests => 26; +use File::Spec::Functions ':ALL'; +BEGIN { + use_ok( 'Params::Util', ':ALL' ); +} + + + + + +##################################################################### +# Is everything imported + +ok( defined &_STRING, '_STRING imported ok' ); +ok( defined &_IDENTIFIER, '_IDENTIFIER imported ok' ); + +ok( defined &_CLASS, '_CLASS imported ok' ); +ok( defined &_CLASSISA, '_CLASSISA imported ok' ); +ok( defined &_SUBCLASS, '_SUBCLASS imported ok' ); +ok( defined &_DRIVER, '_DRIVER imported ok' ); + +ok( defined &_NUMBER, '_NUMBER imported ok' ); +ok( defined &_POSINT, '_POSINT imported ok' ); +ok( defined &_NONNEGINT, '_NONNEGINT imported ok' ); + +ok( defined &_SCALAR, '_SCALAR imported ok' ); +ok( defined &_SCALAR0, '_SCALAR0 imported ok' ); + +ok( defined &_ARRAY, '_ARRAY imported ok' ); +ok( defined &_ARRAY0, '_ARRAY0 imported ok' ); +ok( defined &_ARRAYLIKE, '_ARRAYLIKE imported ok' ); + +ok( defined &_HASH, '_HASH imported ok' ); +ok( defined &_HASH0, '_HASH0 imported ok' ); +ok( defined &_HASHLIKE, '_HASHLIKE imported ok' ); + +ok( defined &_CODE, '_CODE imported ok' ); +ok( defined &_CODELIKE, '_CODELIKE imported ok' ); + +ok( defined &_INVOCANT, '_INVOCANT imported ok' ); +ok( defined &_INSTANCE, '_INSTANCE imported ok' ); +ok( defined &_REGEX, '_REGEX imported ok' ); + +ok( defined &_SET, '_SET imported ok' ); +ok( defined &_SET0, '_SET0 imported ok' ); + +ok( defined &_HANDLE, '_HANDLE imported ok' ); |