Bug 39995: Prevent Koha/Biblio.t to fail on slow servers

Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
This commit is contained in:
Jonathan Druart 2025-05-26 10:14:53 +02:00 committed by Katrin Fischer
parent ef9041feb4
commit 82bd6aac35
No known key found for this signature in database
GPG Key ID: 0EF6E2C03357A834
1 changed files with 7 additions and 0 deletions

View File

@ -39,6 +39,7 @@ use Koha::Exception;
use MARC::Field;
use MARC::Record;
use t::lib::Dates;
use t::lib::TestBuilder;
use t::lib::Mocks;
use Test::MockModule;
@ -591,6 +592,12 @@ subtest 'to_api() tests' => sub {
plan tests => ( scalar keys %{$biblioitem_api} ) + 4;
foreach my $key ( keys %{$biblioitem_api} ) {
if ( $key eq 'timestamp' ) {
t::lib::Dates::compare(
$biblio_api->{$key}, $biblioitem_api->{$key},
"$key is added to the biblio object"
);
}
is( $biblio_api->{$key}, $biblioitem_api->{$key}, "$key is added to the biblio object" );
}