Lines 3-9
use strict;
Link Here
|
3 |
use warnings; |
3 |
use warnings; |
4 |
use FindBin qw( $Bin ); |
4 |
use FindBin qw( $Bin ); |
5 |
|
5 |
|
6 |
use Test::More tests => 6; |
6 |
use Test::More tests => 8; |
7 |
|
7 |
|
8 |
BEGIN { use_ok('Koha::Edifact::Order') } |
8 |
BEGIN { use_ok('Koha::Edifact::Order') } |
9 |
|
9 |
|
Lines 54-56
$data_to_encode .= '??';
Link Here
|
54 |
@segs = Koha::Edifact::Order::imd_segment( $code, $data_to_encode ); |
54 |
@segs = Koha::Edifact::Order::imd_segment( $code, $data_to_encode ); |
55 |
cmp_ok( $segs[1], 'eq', q{IMD+L+010+:::CCCCCCCCCC??'}, |
55 |
cmp_ok( $segs[1], 'eq', q{IMD+L+010+:::CCCCCCCCCC??'}, |
56 |
'IMD segment deals with quoted character at end' ); |
56 |
'IMD segment deals with quoted character at end' ); |
57 |
- |
57 |
|
|
|
58 |
my $isbn = '3540556753'; |
59 |
my $ean = '9783540556756'; |
60 |
|
61 |
my $seg = Koha::Edifact::Order::additional_product_id($isbn); |
62 |
cmp_ok( $seg, 'eq', q{PIA+5+3540556753:IB'}, |
63 |
'isbn correctly encoded in PIA segment' ); |
64 |
|
65 |
$seg = Koha::Edifact::Order::additional_product_id($ean); |
66 |
cmp_ok( $seg, 'eq', q{PIA+5+9783540556756:EN'}, |
67 |
'ean correctly encoded in PIA segment' ); |