#!/usr/bin/env perl
use lib 't/lib';
use constant testing_method => 'cost';
use Test::NetHack::Items (
    "a - a blessed +1 quarterstaff (weapon in hands) (unpaid, 15 zorkmids)" => 15,
    "p - a +0 studded leather armor (being worn) (unpaid, 15 zorkmids)" => 15,
    "x - 11 arrows (in quiver) (unpaid, 22 zorkmids)" => 242,
    "B - a tin (unpaid, 5 zorkmids)" => 5,
    "o - an uncursed triangular amulet (being worn) (unpaid, 150 zorkmids)" => 150,
    "d - an uncursed brass ring (on right hand) (unpaid, 100 zorkmids)" => 100,
    "c - a runed wand (unpaid, 200 zorkmids)" => 200,
    "I - a lamp (lit) (unpaid, 10 zorkmids)" => 10,
    "z - a yellow gem (unpaid, 1500 zorkmids)" => 1500,
    "H - a partly used candle" => 0,
);