View | Details | Raw Unified | Return to bug 20972
Collapse All | Expand All

(-)a/t/Ediorder.t (-2 / +12 lines)
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' );

Return to bug 20972