Bug 22008: Add tests for new constraints

[koha.git] / t / Ediorder.t

diff --git a/t/Ediorder.t b/t/Ediorder.t
index 5332f0c..50926a9 100755 (executable)
--- 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' );