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

Bug 24827: Add a test 

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

Signed-off-by: Joy Nelson <joy@bywatersolutions.com>
This commit is contained in:
Jonathan Druart 2020-03-16 13:01:04 +01:00 committed by Joy Nelson
parent ab2a1b8205
commit 3b06b06cf3
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
t/db_dependent/ImportBatch.t
View File

@ -1,7 +1,8 @@
#!/usr/bin/perl
use Modern::Perl;
use Test::More tests => 14;
use Test::More tests => 15;
use utf8;
use File::Basename;
use File::Temp qw/tempfile/;
@ -105,7 +106,7 @@ my @fields = (
),
MARC::Field->new(
$item_tag, ' ', ' ',
e => 'my edition',
e => 'my edition ❤',
i => 'my item part',
),
MARC::Field->new(
@ -122,6 +123,8 @@ AddItemsToImportBiblio( $id_import_batch1, $import_record_id, $record, 0 );
my $record_from_import_biblio_with_items = C4::ImportBatch::GetRecordFromImportBiblio( $import_record_id, 'embed_items' );
$original_record->leader($record_from_import_biblio_with_items->leader());
is_deeply( $record_from_import_biblio_with_items, $original_record, 'GetRecordFromImportBiblio should return the record with items if specified' );
my $utf8_field = $record_from_import_biblio_with_items->subfield($item_tag, 'e');
is($utf8_field, 'my edition ❤');
$original_record->delete_fields($original_record->field($item_tag)); #Remove items fields
my $record_from_import_biblio_without_items = C4::ImportBatch::GetRecordFromImportBiblio( $import_record_id );
$original_record->leader($record_from_import_biblio_without_items->leader());