1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
#!/usr/bin/perl -w
# Main testing for Params::Util
use strict;
use lib ();
use File::Spec::Functions ':ALL';
BEGIN {
$| = 1;
unless ( $ENV{HARNESS_ACTIVE} ) {
require FindBin;
$FindBin::Bin = $FindBin::Bin; # Avoid a warning
chdir catdir( $FindBin::Bin, updir() );
lib->import(
catdir('blib', 'arch'),
catdir('blib', 'lib' ),
catdir('lib'),
);
}
}
use Test::More tests => 18;
BEGIN {
use_ok( 'Params::Util', ':ALL' );
}
#####################################################################
# Is everything imported
ok( defined &_IDENTIFIER, '_IDENTIFIER imported ok' );
ok( defined &_CLASS, '_CLASS imported ok' );
ok( defined &_POSINT, '_POSINT 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 &_CALLABLE, '_CALLABLE imported ok' );
ok( defined &_CODELIKE, '_CODELIKE imported ok' );
ok( defined &_INSTANCE, '_INSTANCE imported ok' );
ok( defined &_SET, '_SET imported ok' );
ok( defined &_SET0, '_SET0 imported ok' );
1;
|
