use warnings;
use FindBin qw( $Bin );
-use Test::More tests => 6;
+use Test::More tests => 8;
BEGIN { use_ok('Koha::Edifact::Order') }
@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' );