GL: Projektpicker
[kivitendo-erp.git] / t / form / format_amount.t
1 use strict;
2 use Test::More;
3
4 use lib 't';
5 use Support::TestSetup;
6
7 Support::TestSetup::login();
8
9 my $config = {};
10
11 $config->{numberformat} = '1.000,00';
12
13 is($::form->format_amount($config, '1e1', 2), '10,00', 'format 1e1 (numberformat: 1.000,00)');
14 is($::form->format_amount($config, 1000, 2), '1.000,00', 'format 1000 (numberformat: 1.000,00)');
15 is($::form->format_amount($config, 1000.1234, 2), '1.000,12', 'format 1000.1234 (numberformat: 1.000,00)');
16 is($::form->format_amount($config, 1000000000.1234, 2), '1.000.000.000,12', 'format 1000000000.1234 (numberformat: 1.000,00)');
17 is($::form->format_amount($config, -1000000000.1234, 2), '-1.000.000.000,12', 'format -1000000000.1234 (numberformat: 1.000,00)');
18
19
20 $config->{numberformat} = '1,000.00';
21
22 is($::form->format_amount($config, '1e1', 2), '10.00', 'format 1e1 (numberformat: 1,000.00)');
23 is($::form->format_amount($config, 1000, 2), '1,000.00', 'format 1000 (numberformat: 1,000.00)');
24 is($::form->format_amount($config, 1000.1234, 2), '1,000.12', 'format 1000.1234 (numberformat: 1,000.00)');
25 is($::form->format_amount($config, 1000000000.1234, 2), '1,000,000,000.12', 'format 1000000000.1234 (numberformat: 1,000.00)');
26 is($::form->format_amount($config, -1000000000.1234, 2), '-1,000,000,000.12', 'format -1000000000.1234 (numberformat: 1,000.00)');
27
28 # negative places
29
30 is($::form->format_amount($config, 1.00045, -2), '1.00045', 'negative places');
31 is($::form->format_amount($config, 1.00045, -5), '1.00045', 'negative places 2');
32 is($::form->format_amount($config, 1, -2), '1.00', 'negative places 3');
33
34 # bugs amd edge cases
35 $config->{numberformat} = '1.000,00';
36
37 is($::form->format_amount({ numberformat => '1.000,00' }, 0.00005), '0,00005', 'messing with small numbers and no precision');
38 is($::form->format_amount({ numberformat => '1.000,00' }, undef), '0', 'undef');
39 is($::form->format_amount({ numberformat => '1.000,00' }, ''), '0', 'empty string');
40 is($::form->format_amount({ numberformat => '1.000,00' }, undef, 2), '0,00', 'undef with precision');
41 is($::form->format_amount({ numberformat => '1.000,00' }, '', 2), '0,00', 'empty string with prcesion');
42
43 is($::form->format_amount($config, 0.545, 0), '1', 'rounding up with precision 0');
44 is($::form->format_amount($config, -0.545, 0), '-1', 'neg rounding up with precision 0');
45
46 is($::form->format_amount($config, 1.00), '1', 'autotrim to 0 places');
47
48 is($::form->format_amount($config, 10), '10', 'autotrim does not harm integers');
49 is($::form->format_amount($config, 10, 2), '10,00' , 'autotrim does not harm integers 2');
50 is($::form->format_amount($config, 10, -2), '10,00' , 'autotrim does not harm integers 3');
51 is($::form->format_amount($config, 10, 0), '10', 'autotrim does not harm integers 4');
52
53 is($::form->format_amount($config, 0, 0), '0' , 'trivial zero');
54 is($::form->format_amount($config, -0.002, 2), '0,00' , 'negative zero');
55 is($::form->format_amount($config, -0.002, 3), '-0,002' , 'negative zero');
56
57 # dash stuff
58
59 $config->{numberformat} = '1.000,00';
60
61 is($::form->format_amount($config, -350, 2, '-'), '(350,00)', 'dash -');
62
63
64 done_testing;
65
66 1;