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 => 36; |
7 |
|
7 |
|
8 |
BEGIN { use_ok('Koha::Edifact') } |
8 |
BEGIN { use_ok('Koha::Edifact') } |
9 |
|
9 |
|
Lines 51-56
my $test_line = $lin->[-1];
Link Here
|
51 |
is( $test_line->line_item_number, 18, 'correct line number returned' ); |
51 |
is( $test_line->line_item_number, 18, 'correct line number returned' ); |
52 |
is( $test_line->item_number_id, '9780273761006', 'correct ean returned' ); |
52 |
is( $test_line->item_number_id, '9780273761006', 'correct ean returned' ); |
53 |
is( $test_line->quantity, 1, 'quantity returned' ); |
53 |
is( $test_line->quantity, 1, 'quantity returned' ); |
|
|
54 |
is( $test_line->price_info, 114.97, 'price returned' ); |
55 |
is( $test_line->price_info_inclusive, undef, 'discounted price undefined as expected' ); |
54 |
|
56 |
|
55 |
my $test_title = 'International business [electronic resource]'; |
57 |
my $test_title = 'International business [electronic resource]'; |
56 |
my $marcrec = $test_line->marc_record; |
58 |
my $marcrec = $test_line->marc_record; |
57 |
- |
|
|