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
  36 is($::form->format_amount({ numberformat => '1.000,00' }, 0.00005), '0,00005', 'messing with small numbers and no precision');
  37 is($::form->format_amount({ numberformat => '1.000,00' }, undef), '0', 'undef');
  38 is($::form->format_amount({ numberformat => '1.000,00' }, ''), '0', 'empty string');
  39 is($::form->format_amount({ numberformat => '1.000,00' }, undef, 2), '0,00', 'undef with precision');
  40 is($::form->format_amount({ numberformat => '1.000,00' }, '', 2), '0,00', 'empty string with prcesion');
  41
  42 is($::form->format_amount($config, 0.545, 0), '1', 'rounding up with precision 0');
  43 is($::form->format_amount($config, -0.545, 0), '-1', 'neg rounding up with precision 0');
  44
  45 is($::form->format_amount($config, 1.00), '1', 'autotrim to 0 places');
  46
  47
  48 # dash stuff
  49
  50 $config->{numberformat} = '1.000,00';
  51
  52 is($::form->format_amount($config, -350, 2, '-'), '(350,00)', 'dash -');
  53
  54
  55 done_testing;
  56
  57 1;