#!/usr/bin/env perl
use lib 't/lib';
use Test::NetHack::Items (
"a - a +1 club" => {
is_poisoned => 0,
proofed => undef,
burnt => 0,
rusty => 0,
corroded => 0,
rotted => 0,
},
"m - a blessed +4 long sword" => {
is_poisoned => 0,
proofed => undef,
burnt => 0,
rusty => 0,
corroded => 0,
rotted => 0,
},
"s - a poisoned +0 arrow" => {
is_poisoned => 1,
proofed => undef,
burnt => 0,
rusty => 0,
corroded => 0,
rotted => 0,
},
"C - a poisoned rusty +0 arrow" => {
is_poisoned => 1,
proofed => undef,
burnt => 0,
rusty => 1,
corroded => 0,
rotted => 0,
},
"D - a poisoned very rusty corroded +0 arrow" => {
is_poisoned => 1,
proofed => undef,
burnt => 0,
rusty => 2,
corroded => 1,
rotted => 0,
},
"E - a blessed poisoned rusty thoroughly corroded +1 arrow" => {
is_poisoned => 1,
proofed => undef,
burnt => 0,
rusty => 1,
corroded => 3,
rotted => 0,
},
"F - a blessed greased poisoned rusty corroded +2 arrow" => {
is_poisoned => 1,
proofed => undef,
burnt => 0,
rusty => 1,
corroded => 1,
rotted => 0,
},
"e - an uncursed rotted fireproof +0 leather armor (being worn)" => {
proofed => 1,
burnt => 0,
rusty => 0,
corroded => 0,
rotted => 1,
},
"t - an uncursed greased partly used tallow candle (lit)" => {
proofed => undef,
burnt => 0,
rusty => 0,
corroded => 0,
rotted => 0,
is_partly_used => 1,
},
"v - an uncursed burnt rotted partly used candle" => {
burnt => 1,
rusty => 0,
corroded => 0,
rotted => 1,
is_partly_used => 1,
},
"f - an uncursed diluted smoky potion" => {
is_greased => 0,
is_diluted => 1,
},
"h - an uncursed partly eaten food ration" => {
is_greased => 0,
is_partly_eaten => 1,
},
);