1use strict; 2use warnings; 3 4use Test::More; 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 50done_testing; 51