# class tests
# use Test::More tests => 8;
use Test::More skip_all => 'tests require db';
use lib qw/t/;
my @attribute_names = qw/StreetNumber StreetAddress Town City County/;
my @lc_attribute_names = map(lc,@attribute_names);
# 1) use Class::PINT
BEGIN { use_ok('Class::PINT') };
# 2) use Address Class
BEGIN { use_ok( 'Address', 'Address Class'); }
# 3) general accessors
can_ok('Address',@attribute_names, @lc_attribute_names);
# 4) ro accessors
can_ok('Address',map ("get_$_", @attribute_names, @lc_attribute_names));
# 5) wo mutators
can_ok('Address',map ("set_$_", @attribute_names, @lc_attribute_names));
# 6) Array methods
can_ok('Address',map ("${_}_StreetAddress", qw/push pop insert delete/));
# 7) Hash methods
can_ok('Address',map ("${_}_Dictionary", qw/insert delete/),map ("Dictionary_$_", qw/contains keys values/));
# 8) Boolean methods
can_ok('Address',"is_Flag",map ("Flag_is_$_", qw/true false defined/));