|
Lines 1-6
Link Here
|
| 1 |
use Modern::Perl; |
1 |
use Modern::Perl; |
| 2 |
|
2 |
|
| 3 |
use Test::More tests => 35; |
3 |
use Test::More tests => 36; |
| 4 |
|
4 |
|
| 5 |
use Test::MockModule; |
5 |
use Test::MockModule; |
| 6 |
use t::lib::Mocks; |
6 |
use t::lib::Mocks; |
|
Lines 136-141
is( Koha::Number::Price->new(3)->unformat, '3', 'CHF: unformat 3' );
Link Here
|
| 136 |
is( Koha::Number::Price->new(1234567890)->unformat, |
136 |
is( Koha::Number::Price->new(1234567890)->unformat, |
| 137 |
'1234567890', 'CHF: unformat 1234567890' ); |
137 |
'1234567890', 'CHF: unformat 1234567890' ); |
| 138 |
|
138 |
|
|
|
139 |
# Rounding |
| 140 |
is( Koha::Number::Price->new(17.955)->round, '17.96', 'Round 17.955' ); |
| 141 |
|
| 139 |
subtest 'Changes for format' => sub { # See also bug 18736 |
142 |
subtest 'Changes for format' => sub { # See also bug 18736 |
| 140 |
plan tests => 3; |
143 |
plan tests => 3; |
| 141 |
|
144 |
|
| 142 |
- |
|
|