|
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 |
- |
|
|