From 1ba316617c23105cafa02dceec397a52fe445b22 Mon Sep 17 00:00:00 2001 From: Jonathan Druart Date: Mon, 16 Mar 2020 13:01:04 +0100 Subject: [PATCH] Bug 24827: Add a test Signed-off-by: Jonathan Druart --- t/db_dependent/ImportBatch.t | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/t/db_dependent/ImportBatch.t b/t/db_dependent/ImportBatch.t index 66ffcf9aaf..c9d24b8789 100644 --- a/t/db_dependent/ImportBatch.t +++ b/t/db_dependent/ImportBatch.t @@ -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()); -- 2.20.1