- 

subtest 'holds + current_holds' => sub {

    plan tests => 5;

    $schema->storage->txn_begin;

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

    my $biblio = $builder->build_sample_biblio();

    C4::Reserves::AddReserve(

        {

            branchcode     => $patron->branchcode,

            borrowernumber => $patron->borrowernumber,

            biblionumber   => $biblio->biblionumber,

        }

    );

    my $holds = $biblio->holds;

    is( ref($holds), 'Koha::Holds', '->holds should return a Koha::Holds object' );

    is( $holds->count, 1, '->holds should only return 1 hold' );

    is( $holds->next->borrowernumber, $patron->borrowernumber, '->holds should return the correct hold' );

    # Start fresh

    $biblio->holds->delete;

    # Add a hold in the future

    C4::Reserves::AddReserve(

        {

            branchcode       => $patron->branchcode,

            borrowernumber   => $patron->borrowernumber,

            biblionumber     => $biblio->biblionumber,

            reservation_date => dt_from_string->add( days => 2 ),

        }

    );

    $holds = $biblio->holds;

    is( $holds->count, 1, '->holds should return future holds' );

    $holds = $biblio->current_holds;

    is( $holds->count, 0, '->current_holds should not return future holds' );

    $schema->storage->txn_rollback;

};