# vim: set ft=perl :
use Test::More tests => 2;
use Class::Hash;
$hash = Class::Hash->new({ METHOD_BASED => 1 });
is_deeply(Class::Hash->options($hash), {
no_named_accessors => 1,
fetch => 1,
store => 1,
delete => 1,
clear => 1,
exists => 1,
each => 1,
keys => 1,
values => 1,
}, 'METHOD_BASED options');
$hash = Class::Hash->new({ ALL_METHODS => 1 });
is_deeply(Class::Hash->options($hash), {
fetch => 1,
store => 1,
delete => 1,
clear => 1,
exists => 1,
each => 1,
keys => 1,
values => 1,
}, 'ALL_METHODS options');