7 require_ok('SL::Form');
14 $main::lxdebug = bless({}, 'LxDebugMock');
19 my $form = Form->new();
25 $config->{numberformat} = '1.000,00';
27 is($form->format_amount($config, '1e1', 2), '10,00', 'blaa');
28 is($form->format_amount($config, 1000, 2), '1.000,00', 'blaa');
29 is($form->format_amount($config, 1000.1234, 2), '1.000,12', 'blaa');
30 is($form->format_amount($config, 1000000000.1234, 2), '1.000.000.000,12', 'blaa');
31 is($form->format_amount($config, -1000000000.1234, 2), '-1.000.000.000,12', 'blaa');
34 $config->{numberformat} = '1,000.00';
36 is($form->format_amount($config, '1e1', 2), '10.00', 'blaa');
37 is($form->format_amount($config, 1000, 2), '1,000.00', 'blaa');
38 is($form->format_amount($config, 1000.1234, 2), '1,000.12', 'blaa');
39 is($form->format_amount($config, 1000000000.1234, 2), '1,000,000,000.12', 'blaa');
40 is($form->format_amount($config, -1000000000.1234, 2), '-1,000,000,000.12', 'blaa');