--- a/RegressionTests__IntegerTest.st	Sun Jul 21 21:03:08 2019 +0200
+++ b/RegressionTests__IntegerTest.st	Sun Jul 21 21:08:48 2019 +0200
@@ -5601,7 +5601,7 @@
 !
 
 testReading3
-    "thousands character - german"
+    "thousands character - german and switzerland"
     
     #(
         ('1.234'        1234)
@@ -5623,11 +5623,32 @@
         self assert:(value = expected)            
     ].
 
+    #(
+        ('1''234'       1234)
+        ('1''234''567'  1234567)
+        ('1234''567'    1234567)
+        ('12345.67'     nil)
+        ('12345.6789'   nil)
+        ('12345.'       nil)
+        ('12345.1'      nil)
+        ('12345.a'      nil)
+    ) pairsDo:[:string :expected |
+        |value|
+
+        value := Integer 
+                    fromString:string
+                    decimalPointCharacter:$, 
+                    thousandsSeparator:$' 
+                    onError:nil.
+        self assert:(value = expected)            
+    ].
+
     "
      self basicNew testReading3
     "
 
     "Created: / 21-07-2019 / 19:51:58 / Claus Gittinger"
+    "Modified (comment): / 21-07-2019 / 21:08:18 / Claus Gittinger"
 !
 
 testReading4