diff -r 6777704804e1 -r e4757590c90c tests/EditTextViewTests.st --- a/tests/EditTextViewTests.st Wed Nov 28 13:16:38 2018 +0000 +++ b/tests/EditTextViewTests.st Tue Mar 19 15:13:59 2019 +0000 @@ -91,6 +91,64 @@ "Created: / 24-02-2015 / 08:21:56 / Jan Vrany " ! +test_02a + textView contents: 'Hello, here is Smalltalk X'. + textView setCursorCol: 14. + + textViewInteractor type: #SelectWord. + self assert: textView selectionAsString = 'is'. + + textViewInteractor type: #CursorRight. + self assert: textView hasSelection not. + self assert: textView cursorCol == 15. + + "Created: / 19-03-2019 / 14:58:41 / Jan Vrany " +! + +test_02b + textView contents: 'Hello, here is Smalltalk X'. + textView setCursorCol: 14. + + textViewInteractor type: #SelectWord. + self assert: textView selectionAsString = 'is'. + + textViewInteractor type: #NextWord. + self assert: textView hasSelection not. + self assert: textView cursorCol == 16. + + "Created: / 19-03-2019 / 14:59:12 / Jan Vrany " + "Modified: / 19-03-2019 / 15:03:48 / jv" +! + +test_02c + textView contents: 'Hello, here is Smalltalk X'. + textView setCursorCol: 14. + + textViewInteractor type: #SelectWord. + self assert: textView selectionAsString = 'is'. + + textViewInteractor type: #CursorLeft. + self assert: textView hasSelection not. + self assert: textView cursorCol == 13. + + "Created: / 19-03-2019 / 15:02:18 / Jan Vrany " +! + +test_02d + textView contents: 'Hello, here is Smalltalk X'. + textView setCursorCol: 14. + + textViewInteractor type: #SelectWord. + self assert: textView selectionAsString = 'is'. + + textViewInteractor type: #PreviousWord. + self assert: textView hasSelection not. + self assert: textView cursorCol == 13. + + "Created: / 19-03-2019 / 15:02:41 / Jan Vrany " + "Modified: / 19-03-2019 / 15:04:56 / jv" +! + test_issue124_case1_01 " See https://swing.fit.cvut.cz/projects/stx-jv/ticket/124#comment:19