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 => 19; |
6 |
use Test::More tests => 20; |
7 |
|
7 |
|
8 |
BEGIN { use_ok('Koha::Edifact') } |
8 |
BEGIN { use_ok('Koha::Edifact') } |
9 |
|
9 |
|
Lines 73-75
is( $lineprice, 4.55, 'correct net line price returned' );
Link Here
|
73 |
my $tax = $lines->[7]->tax; |
73 |
my $tax = $lines->[7]->tax; |
74 |
|
74 |
|
75 |
is( $tax, 0, 'correct tax amount returned' ); |
75 |
is( $tax, 0, 'correct tax amount returned' ); |
76 |
- |
76 |
|
|
|
77 |
my $tax_rate = $lines->[7]->tax_rate; |
78 |
|
79 |
is( $tax_rate->{rate}, 0.0, 'correct tax rate returned' ); |