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 => 8; |
6 |
use Test::More tests => 10; |
7 |
|
7 |
|
8 |
BEGIN { use_ok('Koha::Edifact::Order') } |
8 |
BEGIN { use_ok('Koha::Edifact::Order') } |
9 |
|
9 |
|
Lines 55-60
$data_to_encode .= '??';
Link Here
|
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 |
# special case for text ending in apostrophe e.g. nuthin' |
59 |
$data_to_encode .= q{?'}; |
60 |
@segs = Koha::Edifact::Order::imd_segment( $code, $data_to_encode ); |
61 |
cmp_ok( $segs[1], 'eq', q{IMD+L+010+:::CCCCCCCCCC???''}, |
62 |
'IMD segment deals with quoted apostrophe at end' ); |
63 |
|
64 |
$data_to_encode =~s/\?'$//; |
65 |
@segs = Koha::Edifact::Order::imd_segment( $code, $data_to_encode ); |
66 |
cmp_ok( $segs[1], 'eq', q{IMD+L+010+:::CCCCCCCCCC??'}, |
67 |
'IMD segment deals with apostrophe preceded by quoted ? at end' ); |
68 |
|
58 |
my $isbn = '3540556753'; |
69 |
my $isbn = '3540556753'; |
59 |
my $ean = '9783540556756'; |
70 |
my $ean = '9783540556756'; |
60 |
|
71 |
|
61 |
- |
|
|