#QUALITY by cg
class: RegressionTests::StringTests
changed: #test65_concatenation
"{ Package: 'stx:goodies/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$'
! !