View | Details | Raw Unified | Return to bug 35248
Collapse All | Expand All

(-)a/t/db_dependent/Koha/Biblio.t (-2 / +35 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 30;
20
use Test::More tests => 31;
21
use Test::Exception;
21
use Test::Exception;
22
use Test::Warn;
22
use Test::Warn;
23
23
Lines 486-491 subtest 'to_api() tests' => sub { Link Here
486
    $schema->storage->txn_rollback;
486
    $schema->storage->txn_rollback;
487
};
487
};
488
488
489
subtest 'bookings() tests' => sub {
490
491
    plan tests => 3;
492
493
    $schema->storage->txn_begin;
494
495
    my $biblio = $builder->build_sample_biblio();
496
497
    is( ref( $biblio->bookings ), 'Koha::Bookings', 'Return type is correct' );
498
499
    is_deeply(
500
        $biblio->bookings->unblessed,
501
        [],
502
        '->bookings returns an empty Koha::Bookings resultset'
503
    );
504
505
    my $booking = $builder->build_object(
506
        {
507
            class => 'Koha::Bookings',
508
            value => { biblio_id => $biblio->biblionumber }
509
        }
510
    );
511
512
    my $bookings = $biblio->bookings->unblessed;
513
514
    is_deeply(
515
        $biblio->bookings->unblessed,
516
        [ $booking->unblessed ],
517
        '->bookings returns the related Koha::Booking objects'
518
    );
519
520
    $schema->storage->txn_rollback;
521
};
522
489
subtest 'suggestions() tests' => sub {
523
subtest 'suggestions() tests' => sub {
490
524
491
    plan tests => 3;
525
    plan tests => 3;
492
- 

Return to bug 35248