From db868ca2a0d213be346ca002923f36ad94435fa8 Mon Sep 17 00:00:00 2001 From: Colin Campbell Date: Fri, 22 Jun 2018 15:02:01 +0100 Subject: [PATCH] Bug 20972 Added a testcase for bug 20972 Ensure all 10 characters of ISBN are preserved And that ISBNs and EANs are correctly identidied in the PIA segment --- t/Ediorder.t | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/t/Ediorder.t b/t/Ediorder.t index 5332f0c5ae..50926a9127 100755 --- a/t/Ediorder.t +++ b/t/Ediorder.t @@ -3,7 +3,7 @@ use strict; use warnings; use FindBin qw( $Bin ); -use Test::More tests => 6; +use Test::More tests => 8; BEGIN { use_ok('Koha::Edifact::Order') } @@ -54,3 +54,14 @@ $data_to_encode .= '??'; @segs = Koha::Edifact::Order::imd_segment( $code, $data_to_encode ); cmp_ok( $segs[1], 'eq', q{IMD+L+010+:::CCCCCCCCCC??'}, 'IMD segment deals with quoted character at end' ); + +my $isbn = '3540556753'; +my $ean = '9783540556756'; + +my $seg = Koha::Edifact::Order::additional_product_id($isbn); +cmp_ok( $seg, 'eq', q{PIA+5+3540556753:IB'}, + 'isbn correctly encoded in PIA segment' ); + +$seg = Koha::Edifact::Order::additional_product_id($ean); +cmp_ok( $seg, 'eq', q{PIA+5+9783540556756:EN'}, + 'ean correctly encoded in PIA segment' ); -- 2.17.1