| 1 | "{ Encoding: utf8 }" !
|
|---|
| 2 | !WorkspaceApplicationTests methodsFor:'tests'!
|
|---|
| 3 |
|
|---|
| 4 | test_issue254
|
|---|
| 5 | "Test paste text selected in a block
|
|---|
| 6 | 1. Paste a test from clipboard
|
|---|
| 7 | 2. Grap image of the pasted text
|
|---|
| 8 | 3. Grap image after typing a space and deleting it
|
|---|
| 9 |
|
|---|
| 10 | Check, if the pasted text is no longer selected in a select block
|
|---|
| 11 | "
|
|---|
| 12 | | imageSnapshotAfterPaste imageSnapshotAfterType |
|
|---|
| 13 |
|
|---|
| 14 | textView setClipboardText: 'To be pasted - ル すしか'.
|
|---|
| 15 | textViewInteractor type: #Paste.
|
|---|
| 16 | imageSnapshotAfterPaste := Image fromView: textView grab: false.
|
|---|
| 17 |
|
|---|
| 18 | textViewInteractor type: Character space. "/ #Space is not recognized
|
|---|
| 19 | textViewInteractor type: #BasicBackspace.
|
|---|
| 20 | imageSnapshotAfterType := Image fromView: textView grab: false.
|
|---|
| 21 |
|
|---|
| 22 | self assert: imageSnapshotAfterPaste equals: imageSnapshotAfterType
|
|---|
| 23 |
|
|---|
| 24 | "Created: / 12-12-2018 / 09:15:01 / svestkap"
|
|---|
| 25 | ! !
|
|---|
| 26 |
|
|---|
