View | Details | Raw Unified | Return to bug 18267
Collapse All | Expand All

(-)a/t/EdiInvoice.t (-1 / +5 lines)
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 => 20;
6
use Test::More tests => 21;
7
7
8
BEGIN { use_ok('Koha::Edifact') }
8
BEGIN { use_ok('Koha::Edifact') }
9
9
Lines 70-75 my $lineprice = $lines->[7]->price_net; Link Here
70
70
71
is( $lineprice, 4.55, 'correct net line price returned' );
71
is( $lineprice, 4.55, 'correct net line price returned' );
72
72
73
my $lineprice = $lines->[7]->price_gross;
74
75
is( $lineprice, 7.99, 'correct gross line price returned' );
76
73
my $tax = $lines->[7]->tax;
77
my $tax = $lines->[7]->tax;
74
78
75
is( $tax, 0, 'correct tax amount returned' );
79
is( $tax, 0, 'correct tax amount returned' );
(-)a/t/Edifact.t (-2 / +3 lines)
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
- 

Return to bug 18267