|
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 => 34; |
6 |
use Test::More tests => 35; |
| 7 |
|
7 |
|
| 8 |
BEGIN { use_ok('Koha::Edifact') } |
8 |
BEGIN { use_ok('Koha::Edifact') } |
| 9 |
|
9 |
|
|
Lines 40-45
is( $m->message_reference_number,
Link Here
|
| 40 |
'MQ09791', "Message reference number returned" ); |
40 |
'MQ09791', "Message reference number returned" ); |
| 41 |
is( $m->docmsg_number, 'Q741588', "Message docmsg number returned" ); |
41 |
is( $m->docmsg_number, 'Q741588', "Message docmsg number returned" ); |
| 42 |
is( $m->message_date, '20140430', "Message date returned" ); |
42 |
is( $m->message_date, '20140430', "Message date returned" ); |
|
|
43 |
is( $m->buyer_ean, '5030670137480', 'buyer ean returned'); |
| 43 |
|
44 |
|
| 44 |
my $lin = $m->lineitems(); |
45 |
my $lin = $m->lineitems(); |
| 45 |
|
46 |
|
| 46 |
- |
|
|