use strict;
use warnings;
use Test::More;
use lib 't/lib';
use ParameterizedRole;
can_ok('MyGame::Weapon', 'increment_enchantment');
can_ok('MyGame::Weapon', 'reset_enchantment');
is(MyGame::Weapon->new->enchantment, 5, 'Provided default for enchantment');
can_ok('MyGame::Wand', 'increment_zapped');
can_ok('MyGame::Wand', 'reset_zapped');
is(MyGame::Wand->new->zapped, 3, 'Provided default for zapped');
can_ok('MyGame::Scroll', 'increment_spelled');
can_ok('MyGame::Scroll', 'reset_spelled');
is(MyGame::Scroll->new->spelled, 1, 'Provided default for spelled');
done_testing;