#!/usr/bin/env perl
use lib 't/lib';
use Test::NetHack::Item;
{
my $start = NetHack::Item->new("a blessed spellbook of force bolt");
my $end = NetHack::Item->new("a white spellbook");
ok($start->is_blessed);
is($end->is_blessed, undef);
is($end->is_uncursed, undef);
is($end->is_cursed, undef);
$end->did_polymorph_from($start);
ok($end->is_blessed);
ok(!$end->is_uncursed);
ok(!$end->is_cursed);
}
{
my $start = NetHack::Item->new("an uncursed spellbook of force bolt");
my $end = NetHack::Item->new("a white spellbook");
ok($start->is_uncursed);
is($end->is_blessed, undef);
is($end->is_uncursed, undef);
is($end->is_cursed, undef);
$end->did_polymorph_from($start);
ok(!$end->is_blessed);
ok($end->is_uncursed);
ok(!$end->is_cursed);
}
{
my $start = NetHack::Item->new("an cursed spellbook of force bolt");
my $end = NetHack::Item->new("a white spellbook");
ok($start->is_cursed);
is($end->is_blessed, undef);
is($end->is_uncursed, undef);
is($end->is_cursed, undef);
$end->did_polymorph_from($start);
ok(!$end->is_blessed);
ok(!$end->is_uncursed);
ok($end->is_cursed);
}
{
my $start = NetHack::Item->new("a spellbook of force bolt");
my $end = NetHack::Item->new("a white spellbook");
is($start->is_blessed, undef);
is($start->is_uncursed, undef);
is($start->is_cursed, undef);
is($end->is_blessed, undef);
is($end->is_uncursed, undef);
is($end->is_cursed, undef);
$end->did_polymorph_from($start);
is($end->is_blessed, undef);
is($end->is_uncursed, undef);
is($end->is_cursed, undef);
}
done_testing;