Consolidation and extended test runs

[kivitendo-erp.git] / t / form / parse_amount.t

diff --git a/t/form/parse_amount.t b/t/form/parse_amount.t
index 4e29eb2..d6a327d 100644 (file)
--- a/t/form/parse_amount.t
+++ b/t/form/parse_amount.t
@@ -53,6 +53,17 @@ is($::form->parse_amount($config, '01,234.5'),     1234.5,    '01,234.5 (numberf
 is($::form->parse_amount($config, '01234.5'),      1234.5,    '01234.5 (numberformat: 1000.00)');
 is($::form->parse_amount($config, '09,871,234.5'), 9871234.5, '09,871,234,5 (numberformat: 1000.00)');
 
+$config->{numberformat} = "1'000.00";
+
+is($::form->parse_amount($config, '12345'),        12345,     "12345 (numberformat: 1'000.00)");
+is($::form->parse_amount($config, '1,234.5'),      1234.5,    "1,234.5 (numberformat: 1'000.00)");
+is($::form->parse_amount($config, '9,871,234.5'),  9871234.5, "9,871,234,5 (numberformat: 1'000.00)");
+is($::form->parse_amount($config, '1234.5'),       1234.5,    "1234.5 (numberformat: 1'000.00)");
+is($::form->parse_amount($config, '012345'),       12345,     "012345 (numberformat: 1'000.00)");
+is($::form->parse_amount($config, '01,234.5'),     1234.5,    "01,234.5 (numberformat: 1'000.00)");
+is($::form->parse_amount($config, '01234.5'),      1234.5,    "01234.5 (numberformat: 1'000.00)");
+is($::form->parse_amount($config, '09,871,234.5'), 9871234.5, "09,871,234,5 (numberformat: 1'000.00)");
+
 # Negative numbers
 $config->{numberformat} = '1.000,00';
 
@@ -98,6 +109,17 @@ is($::form->parse_amount($config, '-01,234.5'),     -1234.5,    '-01,234.5 (numb
 is($::form->parse_amount($config, '-01234.5'),      -1234.5,    '-01234.5 (numberformat: 1000.00)');
 is($::form->parse_amount($config, '-09,871,234.5'), -9871234.5, '-09,871,234,5 (numberformat: 1000.00)');
 
+$config->{numberformat} = "1'000.00";
+
+is($::form->parse_amount($config, '-12345'),        -12345,     "-12345 (numberformat: 1'000.00)");
+is($::form->parse_amount($config, '-1,234.5'),      -1234.5,    "-1,234.5 (numberformat: 1'000.00)");
+is($::form->parse_amount($config, '-9,871,234.5'),  -9871234.5, "-9,871,234,5 (numberformat: 1'000.00)");
+is($::form->parse_amount($config, '-1234.5'),       -1234.5,    "-1234.5 (numberformat: 1'000.00)");
+is($::form->parse_amount($config, '-012345'),       -12345,     "-012345 (numberformat: 1'000.00)");
+is($::form->parse_amount($config, '-01,234.5'),     -1234.5,    "-01,234.5 (numberformat: 1'000.00)");
+is($::form->parse_amount($config, '-01234.5'),      -1234.5,    "-01234.5 (numberformat: 1'000.00)");
+is($::form->parse_amount($config, '-09,871,234.5'), -9871234.5, "-09,871,234,5 (numberformat: 1'000.00)");
+
 # Calculations
 $config->{numberformat} = '1.000,00';
 
@@ -113,6 +135,13 @@ is($::form->parse_amount($config, '047/002+003.05*(04+000005)'),      50.95, '04
 is($::form->parse_amount($config, '47 / 2+       3.5*( 4 + 5)'),      55,    '47 / 2+       3.5*( 4 + 5) (numberformat: 1,000.00)');
 is($::form->parse_amount($config, '047/ 002+ 003.05 * (04 +000005)'), 50.95, '047/ 002+ 003.05 * (04 +000005) (numberformat: 1,000.00)');
 
+$config->{numberformat} = "1'000.00";
+
+is($::form->parse_amount($config, '47/2+3.5*(4+5)'),                  55,    "47/2+3.5*(4+5) (numberformat: 1'000.00)");
+is($::form->parse_amount($config, '047/002+003.05*(04+000005)'),      50.95, "047/002+003.05*(04+000005) (numberformat: 1'000.00)");
+is($::form->parse_amount($config, '47 / 2+       3.5*( 4 + 5)'),      55,    "47 / 2+       3.5*( 4 + 5) (numberformat: 1'000.00)");
+is($::form->parse_amount($config, '047/ 002+ 003.05 * (04 +000005)'), 50.95, "047/ 002+ 003.05 * (04 +000005) (numberformat: 1'000.00)");
+
 # Weird edge cases
 
 $config->{numberformat} = '1.000,00';