1#!/usr/bin/perl 2 3use strict; 4BEGIN { 5 $| = 1; 6 $^W = 1; 7 $ENV{PERL_PARAMS_UTIL_PP} ||= 0; 8} 9 10use Test::More tests => 26; 11use File::Spec::Functions ':ALL'; 12BEGIN { 13 use_ok( 'Params::Util', ':ALL' ); 14} 15 16 17 18 19 20##################################################################### 21# Is everything imported 22 23ok( defined &_STRING, '_STRING imported ok' ); 24ok( defined &_IDENTIFIER, '_IDENTIFIER imported ok' ); 25 26ok( defined &_CLASS, '_CLASS imported ok' ); 27ok( defined &_CLASSISA, '_CLASSISA imported ok' ); 28ok( defined &_SUBCLASS, '_SUBCLASS imported ok' ); 29ok( defined &_DRIVER, '_DRIVER imported ok' ); 30 31ok( defined &_NUMBER, '_NUMBER imported ok' ); 32ok( defined &_POSINT, '_POSINT imported ok' ); 33ok( defined &_NONNEGINT, '_NONNEGINT imported ok' ); 34 35ok( defined &_SCALAR, '_SCALAR imported ok' ); 36ok( defined &_SCALAR0, '_SCALAR0 imported ok' ); 37 38ok( defined &_ARRAY, '_ARRAY imported ok' ); 39ok( defined &_ARRAY0, '_ARRAY0 imported ok' ); 40ok( defined &_ARRAYLIKE, '_ARRAYLIKE imported ok' ); 41 42ok( defined &_HASH, '_HASH imported ok' ); 43ok( defined &_HASH0, '_HASH0 imported ok' ); 44ok( defined &_HASHLIKE, '_HASHLIKE imported ok' ); 45 46ok( defined &_CODE, '_CODE imported ok' ); 47ok( defined &_CODELIKE, '_CODELIKE imported ok' ); 48 49ok( defined &_INVOCANT, '_INVOCANT imported ok' ); 50ok( defined &_INSTANCE, '_INSTANCE imported ok' ); 51ok( defined &_REGEX, '_REGEX imported ok' ); 52 53ok( defined &_SET, '_SET imported ok' ); 54ok( defined &_SET0, '_SET0 imported ok' ); 55 56ok( defined &_HANDLE, '_HANDLE imported ok' ); 57