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
53
54
55
56
57
|
#!perl
BEGIN {
if ($ENV{PERL_CORE}) {
chdir 't' if -d 't';
@INC = '../lib';
}
}
use strict; use warnings;
use Test::More tests => 8;
# see that Hash::Util::FieldHash and Hash::Util load and export what
# they should
BEGIN {
use_ok( 'Hash::Util');
ok( defined( &Hash::Util::lock_keys), "Hash::Util::lock_keys found");
ok( !defined( &Hash::Util::FieldHash::fieldhashes),
"Hash::Util::FieldHash not loaded",
);
}
package one;
use Test::More;
use Hash::Util qw( lock_keys);
BEGIN {
ok( defined( &lock_keys), "lock_keys imported from Hash::Util");
}
use Hash::Util qw( fieldhashes);
BEGIN {
ok( defined( &Hash::Util::FieldHash::fieldhashes),
"Hash::Util::FieldHash loaded",
);
ok( defined( &fieldhashes),
"fieldhashes imported from Hash::Util",
);
}
package two;
use Test::More;
use Hash::Util::FieldHash qw( fieldhashes);
BEGIN {
ok( defined( &fieldhashes),
"fieldhashes imported from Hash::Util::FieldHash",
);
}
use Hash::Util::FieldHash qw( :all);
BEGIN {
ok( defined( &fieldhash),
"fieldhash imported from Hash::Util::FieldHash via :all",
);
}
|
