The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/env perl
use lib 't/lib';
use Test::NetHack::Items (
    "a - a +1 long sword (weapon in hand)" => {
        slot          => 'a',
        quantity      => 1,
        enchantment   => '+1',
        type          => 'weapon',
        is_wielded    => 1,
        buc           => 'uncursed',
        possibilities => ['long sword'],
    },
);