#!/usr/bin/env perl use lib 't/lib'; use Test::NetHack::Item tests => 8; incorporate_ok "a scroll labeled KIRJE" => "a scroll of genocide" => { identity => 'scroll of genocide', appearance => 'scroll labeled KIRJE', }; # this could happen if as a wizard you start with geno, and so never have the # appearance, then later on get mind flayed incorporate_ok "a scroll of genocide" => "a scroll labeled KIRJE" => { identity => 'scroll of genocide', appearance => 'scroll labeled KIRJE', };