--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__CEStringExtensionTest.st	Sat Mar 01 14:54:34 2014 +0100
@@ -0,0 +1,63 @@
+"{ Package: 'exept:regression' }"
+
+"{ NameSpace: RegressionTests }"
+
+TestCase subclass:#CEStringExtensionTest
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'tests-Regression-CollectionExtensions'
+!
+
+
+!CEStringExtensionTest methodsFor:'tests'!
+
+testIntervalFromStartLineStartColumnToEndLineEndColumn
+	| string |
+	string := '123
+56
+89'.
+	self assert: (string intervalFromStartLine: 1 startColumn: 1 toEndLine: 1 endColumn: 2) = (1 to: 2).
+	self assert: (string intervalFromStartLine: 2 startColumn: 2 toEndLine: 3 endColumn: 2) = (6 to: 9)
+!
+
+testIntervalOfLine
+	| string |
+	string := '123
+56
+89'.
+	self assert: (string intervalOfLine: 1) = (1 to: 4).
+	self assert: (string intervalOfLine: 2) = (5 to: 7).
+	self assert: (string intervalOfLine: 3) = (8 to: 9)
+!
+
+testIntervalOfLineCorrespondingToIndex
+	| string |
+	string := '123
+56
+89'.
+	self assert: (string intervalOfLineCorrespondingToIndex: 1) = (1 to: 4).
+	self assert: (string intervalOfLineCorrespondingToIndex: 7) = (5 to: 7).
+	self assert: (string intervalOfLineCorrespondingToIndex: 9) = (8 to: 9)
+!
+
+testPiecesCutWhereCamelCase
+
+	self assert: ('' piecesCutWhereCamelCase) isEmpty.
+	self assert: ('fBar' piecesCutWhereCamelCase) asArray  = #('f' 'Bar').
+	self assert: ('fooBar' piecesCutWhereCamelCase) asArray  = #('foo' 'Bar').
+	self assert: ('FOOBar') piecesCutWhereCamelCase asArray = #('FOO' 'Bar').
+	self assert: ('fooBar1' piecesCutWhereCamelCase) asArray  = #('foo' 'Bar' '1').
+	self assert: ('FOOBar12AndSomething') piecesCutWhereCamelCase asArray = #('FOO' 'Bar' '12' 'And' 'Something').
+! !
+
+!CEStringExtensionTest class methodsFor:'documentation'!
+
+version
+    ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
+! !
+