1 use Test::More tests => 173;
5 use SL::Helper::Number qw(:ALL);
7 use_ok 'Support::TestSetup';
9 Support::TestSetup::login();
14 my ($expected, $amount, $places, $numberformat, $dash, $comment) = @_;
16 my $other_numberformat = $numberformat eq '1.000,00' ? '1,000.00' : '1.000,00';
18 is (_format_number($amount, $places, numberformat => $numberformat, dash => $dash), $expected, "$comment - explicit");
21 local $::myconfig{numberformat} = $other_numberformat;
22 is (_format_number($amount, $places, numberformat => $numberformat, dash => $dash), $expected, "$comment - explicit with different numberformat");
25 local $::myconfig{numberformat} = $numberformat;
26 is (_format_number($amount, $places, dash => $dash), $expected, "$comment - implicit numberformat");
31 is (_format_total($amount, numberformat => $numberformat, dash => $dash), $expected, "$comment - explicit");
34 local $::myconfig{numberformat} = $other_numberformat;
35 is (_format_total($amount, numberformat => $numberformat, dash => $dash), $expected, "$comment - explicit with different numberformat");
38 local $::myconfig{numberformat} = $numberformat;
39 is (_format_total($amount, dash => $dash), $expected, "$comment - implicit numberformat");
45 test_format('10,00', '1e1', 2, '1.000,00', undef, 'format 1e1 (numberformat: 1.000,00)');
46 test_format('1.000,00', 1000, 2, '1.000,00', undef, 'format 1000 (numberformat: 1.000,00)');
47 test_format('1.000,12', 1000.1234, 2, '1.000,00', undef, 'format 1000.1234 (numberformat: 1.000,00)');
48 test_format('1.000.000.000,12', 1000000000.1234, 2, '1.000,00', undef, 'format 1000000000.1234 (numberformat: 1.000,00)');
49 test_format('-1.000.000.000,12', -1000000000.1234, 2, '1.000,00', undef, 'format -1000000000.1234 (numberformat: 1.000,00)');
51 test_format('10.00', '1e1', 2, '1,000.00', undef, 'format 1e1 (numberformat: 1,000.00)');
52 test_format('1,000.00', 1000, 2, '1,000.00', undef, 'format 1000 (numberformat: 1,000.00)');
53 test_format('1,000.12', 1000.1234, 2, '1,000.00', undef, 'format 1000.1234 (numberformat: 1,000.00)');
54 test_format('1,000,000,000.12', 1000000000.1234, 2, '1,000.00', undef, 'format 1000000000.1234 (numberformat: 1,000.00)');
55 test_format('-1,000,000,000.12', -1000000000.1234, 2, '1,000.00', undef, 'format -1000000000.1234 (numberformat: 1,000.00)');
59 test_format('1.00045', 1.00045, -2, '1,000.00', undef, 'negative places');
60 test_format('1.00045', 1.00045, -5, '1,000.00', undef, 'negative places 2');
61 test_format('1.00', 1, -2, '1,000.00', undef, 'negative places 3');
64 $config->{numberformat} = '1.000,00';
66 test_format('0,00005', 0.00005, undef, '1.000,00', undef, 'messing with small numbers and no precision');
67 test_format('0', undef, undef, '1.000,00', undef, 'undef');
68 test_format('0', '', undef, '1.000,00', undef, 'empty string');
69 test_format('0,00', undef, 2, '1.000,00', undef, 'undef with precision');
70 test_format('0,00', '', 2, '1.000,00', undef, 'empty string with prcesion');
72 test_format('1', 0.545, 0, '1.000,00', undef, 'rounding up with precision 0');
73 test_format('-1', -0.545, 0, '1.000,00', undef, 'neg rounding up with precision 0');
75 test_format('1', 1.00, undef, '1.000,00', undef, 'autotrim to 0 places');
77 test_format('10', 10, undef, '1.000,00', undef, 'autotrim does not harm integers');
78 test_format('10,00', 10, 2, '1.000,00', undef, 'autotrim does not harm integers 2');
79 test_format('10,00', 10, -2, '1.000,00', undef, 'autotrim does not harm integers 3');
80 test_format('10', 10, 0, '1.000,00', undef, 'autotrim does not harm integers 4');
82 test_format('0', 0, 0, '1.000,00', undef, 'trivial zero');
83 test_format('0,00', -0.002, 2, '1.000,00', undef, 'negative zero');
84 test_format('-0,002', -0.002, 3, '1.000,00', undef, 'negative zero');
88 test_format('(350,00)', -350, 2, '1.000,00', '-', 'dash -');
93 my ($expected, $amount, $numberformat, $comment) = @_;
95 my $other_numberformat = $numberformat eq '1.000,00' ? '1,000.00' : '1.000,00';
97 is (_parse_number($amount, numberformat => $numberformat), $expected, "$comment - explicit");
100 local $::myconfig{numberformat} = $other_numberformat;
101 is (_parse_number($amount, numberformat => $numberformat), $expected, "$comment - explicit with different numberformat");
104 local $::myconfig{numberformat} = $numberformat;
105 is (_parse_number($amount), $expected, "$comment - implicit numberformat");
110 test_parse(12345, '12345', '1.000,00', '12345 (numberformat: 1.000,00)');
111 test_parse(1234.5, '1.234,5', '1.000,00', '1.234,5 (numberformat: 1.000,00)');
112 test_parse(9871234.5, '9.871.234,5', '1.000,00', '9.871.234,5 (numberformat: 1.000,00)');
113 test_parse(1234.5, '1234,5', '1.000,00', '1234,5 (numberformat: 1.000,00)');
114 test_parse(12345, '012345', '1.000,00', '012345 (numberformat: 1.000,00)');
115 test_parse(1234.5, '01.234,5', '1.000,00', '01.234,5 (numberformat: 1.000,00)');
116 test_parse(1234.5, '01234,5', '1.000,00', '01234,5 (numberformat: 1.000,00)');
117 test_parse(9871234.5, '09.871.234,5', '1.000,00', '09.871.234,5 (numberformat: 1.000,00)');
121 is(_round_number('3.231',2),'3.23');
122 is(_round_number('3.234',2),'3.23');
123 is(_round_number('3.235',2),'3.24');
124 is(_round_number('5.786',2),'5.79');
125 is(_round_number('2.342',2),'2.34');
126 is(_round_number('1.2345',2),'1.23');
127 is(_round_number('8.2345',2),'8.23');
128 is(_round_number('8.2350',2),'8.24');
131 is(_round_total('3.231'),'3.23');
132 is(_round_total('3.234'),'3.23');
133 is(_round_total('3.235'),'3.24');
134 is(_round_total('5.786'),'5.79');
135 is(_round_total('2.342'),'2.34');
136 is(_round_total('1.2345'),'1.23');
137 is(_round_total('8.2345'),'8.23');
138 is(_round_total('8.2350'),'8.24');