1 "{ Package: 'exept:regression' }"

     2 

     3 "{ NameSpace: RegressionTests }"

     4 

     5 TestCase subclass:#CEStringExtensionTest

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'tests-Regression-CollectionExtensions'

    10 !

    11 

    12 

    13 !CEStringExtensionTest methodsFor:'tests'!

    14 

    15 testIntervalFromStartLineStartColumnToEndLineEndColumn

    16 	| string |

    17 	string := '123

    18 56

    19 89'.

    20 	self assert: (string intervalFromStartLine: 1 startColumn: 1 toEndLine: 1 endColumn: 2) = (1 to: 2).

    21 	self assert: (string intervalFromStartLine: 2 startColumn: 2 toEndLine: 3 endColumn: 2) = (6 to: 9)

    22 !

    23 

    24 testIntervalOfLine

    25 	| string |

    26 	string := '123

    27 56

    28 89'.

    29 	self assert: (string intervalOfLine: 1) = (1 to: 4).

    30 	self assert: (string intervalOfLine: 2) = (5 to: 7).

    31 	self assert: (string intervalOfLine: 3) = (8 to: 9)

    32 !

    33 

    34 testIntervalOfLineCorrespondingToIndex

    35 	| string |

    36 	string := '123

    37 56

    38 89'.

    39 	self assert: (string intervalOfLineCorrespondingToIndex: 1) = (1 to: 4).

    40 	self assert: (string intervalOfLineCorrespondingToIndex: 7) = (5 to: 7).

    41 	self assert: (string intervalOfLineCorrespondingToIndex: 9) = (8 to: 9)

    42 !

    43 

    44 testPiecesCutWhereCamelCase

    45 

    46 	self assert: ('' piecesCutWhereCamelCase) isEmpty.

    47 	self assert: ('fBar' piecesCutWhereCamelCase) asArray  = #('f' 'Bar').

    48 	self assert: ('fooBar' piecesCutWhereCamelCase) asArray  = #('foo' 'Bar').

    49 	self assert: ('FOOBar') piecesCutWhereCamelCase asArray = #('FOO' 'Bar').

    50 	self assert: ('fooBar1' piecesCutWhereCamelCase) asArray  = #('foo' 'Bar' '1').

    51 	self assert: ('FOOBar12AndSomething') piecesCutWhereCamelCase asArray = #('FOO' 'Bar' '12' 'And' 'Something').

    52 ! !

    53 

    54 !CEStringExtensionTest class methodsFor:'documentation'!

    55 

    56 version

    57     ^ '$Header$'

    58 !

    59 

    60 version_CVS

    61     ^ '$Header$'

    62 ! !

    63