use Koha::Holds;

subtest cancel_waiting_hold => sub {

    plan tests => 7;

    my $library = $builder->build_object ({ class => 'Koha::Libraries' });

    my $patron = $builder->build_object(

        {

            class => 'Koha::Patrons',

            value => {

                branchcode => $library->branchcode,

            }

        }

    );

    t::lib::Mocks::mock_userenv({ branchcode => $library->branchcode, flags => 1 });

    my $item = $builder->build_sample_item({

        library       => $library->branchcode,

    });

    Koha::CirculationRules->set_rules(

        {

            categorycode => $patron->categorycode,

            branchcode   => $library->branchcode,

            itemtype     => $item->effective_itemtype,

            rules        => {

                onshelfholds     => 1,

                reservesallowed  => 3,

                holds_per_record => 3,

                issuelength      => 5,

                lengthunit       => 'days',

            }

        }

    );

    my $reserve_id = AddReserve(

        {

            branchcode     => $library->branchcode,

            borrowernumber => $patron->borrowernumber,

            biblionumber   => $item->biblio->biblionumber,

            itemnumber     => $item->itemnumber,

        }

    );

    is( $item->biblio->holds->count(), 1, "Hold was placed on bib");

    is( $item->holds->count(),1,"Hold was placed on specific item");

    my $hold = Koha::Holds->find( $reserve_id );

    ok( $hold, 'Get hold object' );

    $hold->update({ found => 'W' });

    $hold->get_from_storage;

    is( $hold->found, 'W', "Hold was correctly set to waiting." );

    my $ils = C4::SIP::ILS->new({ id => $library->branchcode });

    my $sip_patron = C4::SIP::ILS::Patron->new( $patron->cardnumber );

    my $transaction = $ils->cancel_hold($patron->cardnumber,undef,$item->barcode,undef);

    is( $transaction->{screen_msg},"Hold Cancelled.","We get a success message when hold cancelled");

    is( $item->biblio->holds->count(), 0, "Bib has 0 holds remaining");

    is( $item->holds->count(), 0,  "Item has 0 holds remaining");

};