1#!perl
2use strict; use warnings;
3
4use Test::More tests => 8;
5
6# see that Hash::Util::FieldHash and Hash::Util load and export what
7# they should
8
9BEGIN {
10    use_ok( 'Hash::Util');
11    ok( defined( &Hash::Util::lock_keys), "Hash::Util::lock_keys found");
12    ok( !defined( &Hash::Util::FieldHash::fieldhashes),
13        "Hash::Util::FieldHash not loaded",
14    );
15}
16
17package one;
18use Test::More;
19use Hash::Util qw( lock_keys);
20BEGIN {
21    ok( defined( &lock_keys), "lock_keys imported from Hash::Util");
22}
23
24use Hash::Util qw( fieldhashes);
25BEGIN {
26    ok( defined( &Hash::Util::FieldHash::fieldhashes),
27        "Hash::Util::FieldHash loaded",
28    );
29    ok( defined( &fieldhashes),
30        "fieldhashes imported from Hash::Util",
31    );
32}
33
34package two;
35use Test::More;
36use Hash::Util::FieldHash qw( fieldhashes);
37BEGIN {
38    ok( defined( &fieldhashes),
39        "fieldhashes imported from Hash::Util::FieldHash",
40    );
41}
42
43use Hash::Util::FieldHash qw( :all);
44BEGIN {
45    ok( defined( &fieldhash),
46        "fieldhash imported from Hash::Util::FieldHash via :all",
47    );
48}
49
50