--- a/RegressionTests__CollectionTests.st	Wed Nov 15 16:41:57 2017 +0100
+++ b/RegressionTests__CollectionTests.st	Wed Nov 22 11:10:37 2017 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -1456,6 +1458,45 @@
 	self assert: (nonEmpty ifEmpty: [false] ifNotEmpty: [:s | s first = #x])
 ! !
 
+!CollectionTests methodsFor:'tests-stringCollection'!
+
+testStringCollection
+    |separators stringCollection|
+
+    self assert:((StringCollection fromString:'') size == 0).
+
+    separators := OrderedCollection with:(String lf) with:(String return) with:(String crlf).
+    separators do:[:separator |
+        1 to:3 do:[:i |
+            |stringA stringB stringC stringD|
+
+            stringA := ''.
+            stringB := ''.
+            stringC := ''.
+            stringD := 'd'.
+
+            1 to:i do:[:j|
+                stringA := stringA , separator.
+                stringB := stringB , separator , 'b'.
+                stringC := stringC , 'c' , separator.
+                stringD := stringD , separator , 'd'.
+            ].
+
+            stringCollection := StringCollection fromString:stringA.
+            self assert:(stringCollection size = i).
+
+            stringCollection := StringCollection fromString:stringB.
+            self assert:(stringCollection size = (i + 1)).
+
+            stringCollection := StringCollection fromString:stringC.
+            self assert:(stringCollection size = i).
+
+            stringCollection := StringCollection fromString:stringD.
+            self assert:(stringCollection size = (i + 1)).
+        ].
+    ].
+! !
+
 !CollectionTests::SortTestData methodsFor:'accessing'!
 
 value