gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 20191: Make OAI/Server.t tests use timestamps from the DB 

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Tomas Cohen Arazi 2018-02-15 14:14:18 -03:00 committed by Jonathan Druart
parent 3672df5226
commit 2f90cd2be0
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
t/db_dependent/OAI/Server.t
View File

@ -30,7 +30,10 @@ use t::lib::Mocks;
use C4::Biblio;
use C4::Context;
use Koha::Biblio::Metadatas;
use Koha::Database;
use Koha::DateUtils;
BEGIN {
use_ok('Koha::OAI::Server::DeletedRecord');
@ -344,14 +347,15 @@ subtest 'Bug 19725: OAI-PMH ListRecords and ListIdentifiers should use biblio_me
# Wait 1 second to be sure no timestamp will be equal to $from defined below
sleep 1;
my $from_dt = DateTime->now;
my $from = $from_dt->ymd . 'T' . $from_dt->hms . 'Z';
# Modify record to trigger auto update of timestamp
(my $biblionumber = $marcxml[0]->{header}->{identifier}) =~ s/^.*:(.*)/$1/;
my $record = GetMarcBiblio({biblionumber => $biblionumber});
$record->append_fields(MARC::Field->new(999, '', '', z => '_'));
ModBiblio($record, $biblionumber);
ModBiblio( $record, $biblionumber );
my $from_dt = dt_from_string(
Koha::Biblio::Metadatas->search({ biblionumber => $biblionumber })
->next->timestamp );
my $from = $from_dt->ymd . 'T' . $from_dt->hms . 'Z';
$oaidc[0]->{header}->{datestamp} = $from;
test_query(