#!/usr/bin/perl
use Games::Nintendo::Mario::SMB2;
use Test::More 'no_plan';
my $fungus = Games::Nintendo::Mario::SMB2->new( name => 'Toad' );
isa_ok($fungus, 'Games::Nintendo::Mario::SMB2');
is($fungus->name, 'Toad', "Eeew, it's Toad!");
is($fungus->state,'normal',"we started Toad normal (no choice!)");
is($fungus->max_hearts,3, "three heart containers");
is($fungus->hearts, 1, "one heart at start");
is(
$fungus->powerup('heart')->hearts,
2,
"two hearts after powerup"
);
is($fungus->state, 'super', "two hearts means super!");
is(
$fungus->damage()->hearts,
1,
"one heart after damage"
);
is(
$fungus->damage()->hearts,
0,
"zero heart after more damage"
);
is($fungus->state,'dead',"...and he's dead");
my $liege = Games::Nintendo::Mario::SMB2->new( name => 'Peach' );
$liege->powerup('mushroom');
is( $liege->hearts, 1, "two hearts after mushroom powerup (unchanged)" );
is( $liege->max_hearts, 4, "four heart containers after mushroom powerup" );
$liege->powerup('mushroom');
is( $liege->max_hearts, 5, "five heart containers after mushroom powerup" );
$liege->powerup('mushroom');
is( $liege->max_hearts, 5, "five heart containers after mushroom powerup" );