#!/usr/bin/env perl
use lib 't/lib';
use Test::NetHack::Item;
use Test::Fatal;

my $daggers = NetHack::Item->new("10 +1 daggers");
is($daggers->quantity, 10);

my $dagger = $daggers->fork_quantity(1);
is($dagger->quantity, 1);
is($daggers->quantity, 9);

is($dagger->enchantment, '+1');
is($daggers->enchantment, '+1');

$daggers->enchantment('+3');
is($dagger->enchantment, '+1');
is($daggers->enchantment, '+3');

like(exception {
    $daggers->fork_quantity(9);
}, qr/^Unable to fork the entire quantity \(9\) of item \(NetHack::Item::Weapon=HASH\(\w+\)\)/);

like(exception {
    $daggers->fork_quantity(18);
}, qr/^Unable to fork more \(18\) than the entire quantity \(9\) of item \(NetHack::Item::Weapon=HASH\(\w+\)\)/);

done_testing;