X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/0b34e29fb04ad9ac9912f67b767f9f401700ca97..8e5b1f0e363dd22883e931006b8ac414bad9bbc5:/t/form/format_amount.t

diff --git a/t/form/format_amount.t b/t/form/format_amount.t
index 229c88cd5..fa18d5059 100644
--- a/t/form/format_amount.t
+++ b/t/form/format_amount.t
@@ -16,7 +16,6 @@ is($::form->format_amount($config, 1000.1234, 2), '1.000,12', 'format 1000.1234
 is($::form->format_amount($config, 1000000000.1234, 2), '1.000.000.000,12', 'format 1000000000.1234 (numberformat: 1.000,00)');
 is($::form->format_amount($config, -1000000000.1234, 2), '-1.000.000.000,12', 'format -1000000000.1234 (numberformat: 1.000,00)');
 
-
 $config->{numberformat} = '1,000.00';
 
 is($::form->format_amount($config, '1e1', 2), '10.00', 'format 1e1 (numberformat: 1,000.00)');
@@ -25,6 +24,14 @@ is($::form->format_amount($config, 1000.1234, 2), '1,000.12', 'format 1000.1234
 is($::form->format_amount($config, 1000000000.1234, 2), '1,000,000,000.12', 'format 1000000000.1234 (numberformat: 1,000.00)');
 is($::form->format_amount($config, -1000000000.1234, 2), '-1,000,000,000.12', 'format -1000000000.1234 (numberformat: 1,000.00)');
 
+$config->{numberformat} = "1'000.00";
+
+is($::form->format_amount($config, '1e1', 2), "10.00", "format 1e1 (numberformat: 1'000.00)");
+is($::form->format_amount($config, 1000, 2), "1'000.00", "format 1000 (numberformat: 1'000.00)");
+is($::form->format_amount($config, 1000.1234, 2), "1'000.12", "format 1000.1234 (numberformat: 1'000.00)");
+is($::form->format_amount($config, 1000000000.1234, 2), "1'000'000'000.12", "format 1000000000.1234 (numberformat: 1'000.00)");
+is($::form->format_amount($config, -1000000000.1234, 2), "-1'000'000'000.12", "format -1000000000.1234 (numberformat: 1'000.00)");
+
 # negative places
 
 is($::form->format_amount($config, 1.00045, -2), '1.00045', 'negative places');