92 !

    93 

    94 test_02a

    95     textView contents: 'Hello, here is Smalltalk X'. 

    96     textView setCursorCol: 14.

    97 

    98     textViewInteractor type: #SelectWord.

    99     self assert: textView selectionAsString = 'is'.

   100 

   101     textViewInteractor type: #CursorRight.

   102     self assert: textView hasSelection not.

   103     self assert: textView cursorCol == 15.

   104 

   105     "Created: / 19-03-2019 / 14:58:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   106 !

   107 

   108 test_02b

   109     textView contents: 'Hello, here is Smalltalk X'. 

   110     textView setCursorCol: 14.

   111 

   112     textViewInteractor type: #SelectWord.

   113     self assert: textView selectionAsString = 'is'.

   114 

   115     textViewInteractor type: #NextWord.

   116     self assert: textView hasSelection not.

   117     self assert: textView cursorCol == 16.

   118 

   119     "Created: / 19-03-2019 / 14:59:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   120     "Modified: / 19-03-2019 / 15:03:48 / jv"

   121 !

   122 

   123 test_02c

   124     textView contents: 'Hello, here is Smalltalk X'. 

   125     textView setCursorCol: 14.

   126 

   127     textViewInteractor type: #SelectWord.

   128     self assert: textView selectionAsString = 'is'.

   129 

   130     textViewInteractor type: #CursorLeft.

   131     self assert: textView hasSelection not.

   132     self assert: textView cursorCol == 13.

   133 

   134     "Created: / 19-03-2019 / 15:02:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   135 !

   136 

   137 test_02d

   138     textView contents: 'Hello, here is Smalltalk X'. 

   139     textView setCursorCol: 14.

   140 

   141     textViewInteractor type: #SelectWord.

   142     self assert: textView selectionAsString = 'is'.

   143 

   144     textViewInteractor type: #PreviousWord.

   145     self assert: textView hasSelection not.

   146     self assert: textView cursorCol == 13.

   147 

   148     "Created: / 19-03-2019 / 15:02:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

   149     "Modified: / 19-03-2019 / 15:04:56 / jv"