|
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' ); |