--- a/tests/EditTextViewTests.st	Mon Jul 02 08:46:01 2018 +0200
+++ b/tests/EditTextViewTests.st	Tue Jul 17 19:34:22 2018 +0200
@@ -63,7 +63,7 @@
     topView waitUntilVisible.
 
     "Created: / 23-07-2014 / 07:15:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (format): / 12-10-2017 / 23:17:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-07-2018 / 09:43:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 tearDown
@@ -412,6 +412,86 @@
     self assert: textView selectionEndCol == 8.
 
     "Created: / 11-10-2017 / 22:35:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+test_ussue230_01a
+    "
+     Test paste over selection
+        1. Copy some code to clipboard
+        2. Select word in an editor
+        3. Paste
+
+     Check, that selected code has been replaced by
+     pasted text.
+"
+    
+    textView contents:'Here is some word.'.
+    textView 
+        selectFromLine:1
+        col:9
+        toLine:1
+        col:12.
+    self assert:textView selection first = 'some'.
+    textView setClipboardText:'pasted'.
+    textViewInteractor type:#Paste.
+    self assert:textView selection first = 'pasted'.
+    self assert:textView contents = 'Here is pasted word.
+'.
+
+    "Created: / 17-07-2018 / 09:28:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-07-2018 / 09:28:42 / jv"
+!
+
+test_ussue230_01b
+    "
+     Test paste over selection
+        1. Copy some code to clipboard
+        2. Select word in an editor using select-world
+        3. Paste
+
+     Check, that selected code has been replaced by
+     pasted text.
+"
+    
+    textView contents:'Here is some word.'.
+    textView setCursorCol:10.
+    textViewInteractor type:#SelectWord.
+    self assert:textView selection first = 'some'.
+    textView setClipboardText:'pasted'.
+    textViewInteractor type:#Paste.
+    self assert:textView selection first = 'pasted'.
+    self assert:textView contents = 'Here is pasted word.
+'.
+
+    "Created: / 17-07-2018 / 09:38:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-07-2018 / 09:39:21 / jv"
+!
+
+test_ussue230_01c
+    "
+     Test paste over selection
+        1. Copy some code to clipboard using select world, then copy.
+        2. Select word in an editor using select-world
+        3. Paste
+
+     Check, that selected code has been replaced by
+     pasted text.
+"
+    
+    textView contents:'Here is some word.'.
+    textView setCursorCol:10.
+    textViewInteractor type:#SelectWord.
+    self assert:textView selection first = 'some'.
+    textViewInteractor type:#Copy.
+    textView setCursorCol:3.
+    textViewInteractor type:#SelectWord.
+    self assert:textView selection first = 'Here'.
+    textViewInteractor type:#Paste.
+    self assert:textView selection first = 'some'.
+    self assert:textView contents = 'some is some word.
+'.
+
+    "Created: / 17-07-2018 / 10:13:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !EditTextViewTests class methodsFor:'documentation'!