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

(-)a/t/db_dependent/Koha/Biblio.t (-2 / +18 lines)
Lines 17-23 Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use Test::More tests => 8;
20
use Test::More tests => 9;
21
21
22
use C4::Biblio;
22
use C4::Biblio;
23
use Koha::Database;
23
use Koha::Database;
Lines 434-436 subtest 'pickup_locations' => sub { Link Here
434
434
435
    $schema->storage->txn_rollback;
435
    $schema->storage->txn_rollback;
436
};
436
};
437
- 
437
438
subtest 'to_api() tests' => sub {
439
440
    $schema->storage->txn_begin;
441
442
    my $biblio = $builder->build_sample_biblio();
443
    my $biblioitem_api = $biblio->biblioitem->to_api;
444
    my $biblio_api     = $biblio->to_api;
445
446
    plan tests => scalar keys %{ $biblioitem_api };
447
448
    foreach my $key ( keys %{ $biblioitem_api } ) {
449
        is( $biblio_api->{$key}, $biblioitem_api->{$key}, "$key is added to the biblio object" );
450
    }
451
452
    $schema->storage->txn_rollback;
453
};

Return to bug 24366