hg/stx-goodies-smallsense: SmallSense__SmalltalkEditSupportTests.st@6d4bf422a7dd (annotated)

257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2	stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE
374 e65bd2bf892a Updated copyright notice. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 274 diff changeset	3	Copyright (C) 2013-2015 Jan Vrany
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	This library is free software; you can redistribute it and/or
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	modify it under the terms of the GNU Lesser General Public
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	License as published by the Free Software Foundation; either
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	version 2.1 of the License.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	This library is distributed in the hope that it will be useful,
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	but WITHOUT ANY WARRANTY; without even the implied warranty of
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	Lesser General Public License for more details.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	You should have received a copy of the GNU Lesser General Public
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	License along with this library; if not, write to the Free Software
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	"
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	"{ Package: 'stx:goodies/smallsense' }"
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	"{ NameSpace: SmallSense }"
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	EditSupportTests subclass:#SmalltalkEditSupportTests
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	instanceVariableNames:''
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	classVariableNames:''
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	poolDictionaries:''
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	category:'SmallSense-Tests'
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	!
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	!SmalltalkEditSupportTests class methodsFor:'documentation'!
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	copyright
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	"
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE
374 e65bd2bf892a Updated copyright notice. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 274 diff changeset	35	Copyright (C) 2013-2015 Jan Vrany
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	This library is free software; you can redistribute it and/or
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	modify it under the terms of the GNU Lesser General Public
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	License as published by the Free Software Foundation; either
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	version 2.1 of the License.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	This library is distributed in the hope that it will be useful,
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43	but WITHOUT ANY WARRANTY; without even the implied warranty of
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	Lesser General Public License for more details.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	You should have received a copy of the GNU Lesser General Public
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48	License along with this library; if not, write to the Free Software
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	"
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	! !
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	!SmalltalkEditSupportTests methodsFor:'accessing-classes'!
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	editSupportClass
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	"superclass SmallSense::EditSupportTests says that I am responsible to implement this method"
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	58	^ SmalltalkEditSupport
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	59
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	60	"Created: / 23-07-2014 / 07:16:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	61	! !
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62
274 2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	63	!SmalltalkEditSupportTests methodsFor:'tests - completion'!
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	64
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	65	test_complete_if_unambiguous_01
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	66
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	67	UserPreferences current smallSenseCompleteIfUnambiguous: true.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	68	codeView editedMethodOrClass: self class.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	69	codeView contents:'editService'.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	70	codeView setCursorCol: 12.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	71
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	72	codeViewInteractor type: #(Return Tab).
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	73	codeViewInteractor type: 't'.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	74	Delay waitForMilliseconds: 250.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	75	codeViewInteractor type: 'h'.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	76	self assert: (codeView list at: 2) = ' thisContext'.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	77	Delay waitForMilliseconds: 250.
458 de41bf2025c0 Tests: fixed few bugs in electring edit support. More tests pass now. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 454 diff changeset	78	codeViewInteractor type: 'i'.
de41bf2025c0 Tests: fixed few bugs in electring edit support. More tests pass now. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 454 diff changeset	79	codeViewInteractor type:'sContext'.
274 2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	80	self assert: (codeView list at: 2) = ' thisContext'.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	81
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	82	"Created: / 23-07-2014 / 23:38:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
458 de41bf2025c0 Tests: fixed few bugs in electring edit support. More tests pass now. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 454 diff changeset	83	"Modified: / 03-05-2015 / 23:50:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
274 2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	84	!
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	85
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	86	test_complete_if_unambiguous_02
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	87
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	88	UserPreferences current smallSenseCompleteIfUnambiguous: true.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	89	codeView editedMethodOrClass: self class.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	90	codeView contents:'editService'.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	91	codeView setCursorCol: 12.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	92
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	93	codeViewInteractor type: #(Return Tab).
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	94	codeViewInteractor type: 't'.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	95	Delay waitForMilliseconds: 250.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	96	codeViewInteractor type: 'h'.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	97	self assert: (codeView list at: 2) = ' thisContext'.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	98	Delay waitForMilliseconds: 250.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	99	codeViewInteractor type: 'is receiver'.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	100	self assert: (codeView list at: 2) = ' thisContext receiver'.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	101
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	102	"Created: / 11-08-2014 / 15:00:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	103	!
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	104
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	105	test_complete_if_unambiguous_03
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	106
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	107	UserPreferences current smallSenseCompleteIfUnambiguous: true.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	108	codeView editedMethodOrClass: self class.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	109	codeView contents:'editService'.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	110	codeView setCursorCol: 12.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	111
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	112	codeViewInteractor type: #(Return Tab).
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	113	codeViewInteractor type: 't'.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	114	Delay waitForMilliseconds: 250.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	115	codeViewInteractor type: 'h'.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	116	self assert: (codeView list at: 2) = ' thisContext'.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	117	Delay waitForMilliseconds: 250.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	118	codeViewInteractor type: 'isValue'.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	119	self assert: (codeView list at: 2) = ' thisValue'.
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	120
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	121	"Created: / 11-08-2014 / 15:01:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
444 a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	122	!
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	123
445 783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	124	test_complete_if_unambiguous_04
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	125
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	126	UserPreferences current smallSenseCompleteIfUnambiguous: true.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	127	codeView editedMethodOrClass: self class.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	128	codeView contents:'editService'.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	129	codeView setCursorCol: 12.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	130
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	131	codeViewInteractor type: #(Return Tab).
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	132	codeViewInteractor type: 't'.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	133	Delay waitForMilliseconds: 250.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	134	codeViewInteractor type: 'h'.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	135	self assert: (codeView list at: 2) = ' thisContext'.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	136	Delay waitForMilliseconds: 250.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	137	codeViewInteractor type: #(BackSpace).
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	138	self assert: (codeView list at: 2) = ' t'.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	139	codeViewInteractor type: 'h'.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	140	Delay waitForMilliseconds: 250.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	141	self assert: (codeView list at: 2) = ' th'.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	142	Delay waitForMilliseconds: 250.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	143	codeViewInteractor type: 'e := t'.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	144	Delay waitForMilliseconds: 250.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	145	codeViewInteractor type: 'h'.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	146	Delay waitForMilliseconds: 250.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	147	self assert: (codeView list at: 2) = ' the := thisContext'.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	148
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	149	"Created: / 03-03-2015 / 17:01:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
446 59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	150	! !
59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	151
59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	152	!SmalltalkEditSupportTests methodsFor:'tests - electric snippets'!
445 783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	153
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	154	test_electric_snippet_do_01
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	155
454 9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	156	UserPreferences current smallSenseElectricEditSupportEnabled: true.
445 783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	157	codeView editedMethodOrClass: self class.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	158	codeView contents:'editService
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	159	snippets do'.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	160	codeView setCursorLine: 2; setCursorCol: 16.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	161
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	162	codeViewInteractor type: ':'.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	163	Delay waitForMilliseconds: 250.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	164	self assert: (codeView list at: 2) = ' snippets do:[:snippet \| ]'.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	165	codeViewInteractor type: #(BackSpace).
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	166	self assert: (codeView list at: 2) = ' snippets do'.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	167	codeViewInteractor type: ':'.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	168	Delay waitForMilliseconds: 250.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	169	self assert: (codeView list at: 2) = ' snippets do:'.
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	170
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	171	"Created: / 04-03-2015 / 05:54:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
454 9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	172	"Modified: / 02-05-2015 / 21:59:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
446 59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	173	!
59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	174
59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	175	test_electric_snippet_do_02
59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	176
454 9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	177	UserPreferences current smallSenseElectricEditSupportEnabled: true.
446 59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	178	codeView editedMethodOrClass: self class.
59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	179	codeView contents:'editService
59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	180	snippets do'.
59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	181	codeView setCursorLine: 2; setCursorCol: 16.
59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	182
59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	183	codeViewInteractor type: ':'.
59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	184	Delay waitForMilliseconds: 250.
59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	185	self assert: (codeView list at: 2) = ' snippets do:[:snippet \| ]'.
59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	186	codeViewInteractor type: 'aBlock'.
59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	187	self assert: (codeView list at: 2) = ' snippets do: aBlock'.
59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	188
59afe5adfbf7 More fixes for #10: delete the rest of inserted text when typed text differ from inserted. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 445 diff changeset	189	"Created: / 04-03-2015 / 06:11:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
454 9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	190	"Modified: / 02-05-2015 / 21:59:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
445 783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	191	!
783f2a4af9c2 Electric insert: do not insert again and again when insertion was deleted by pressing backspace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 444 diff changeset	192
444 a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	193	test_electric_snippet_do_03
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	194
454 9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	195	UserPreferences current smallSenseElectricEditSupportEnabled: true.
444 a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	196	UserPreferences current smallSenseSmalltalkIterationVariableNamePrefixWithEach: true.
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	197	codeView editedMethodOrClass: self class.
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	198	codeView contents:'editService
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	199	snippets do'.
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	200	codeView setCursorLine: 2; setCursorCol: 16.
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	201
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	202	codeViewInteractor type: ':'.
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	203	Delay waitForMilliseconds: 250.
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	204	self assert: (codeView list at: 2) = ' snippets do:[:eachSnippet \| ]'.
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	205
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	206	"Created: / 04-03-2015 / 08:13:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
454 9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	207	"Modified: / 02-05-2015 / 21:59:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
444 a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	208	!
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	209
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	210	test_electric_snippet_do_04
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	211
454 9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	212	UserPreferences current smallSenseElectricEditSupportEnabled: true.
444 a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	213	UserPreferences current smallSenseSmalltalkIterationVariableNameMaxLength: 5.
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	214	codeView editedMethodOrClass: self class.
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	215	codeView contents:'editService
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	216	snippets do'.
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	217	codeView setCursorLine: 2; setCursorCol: 16.
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	218
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	219	codeViewInteractor type: ':'.
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	220	Delay waitForMilliseconds: 250.
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	221	self assert: (codeView list at: 2) = ' snippets do:[:each \| ]'.
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	222
a47f43af21d6 Smalltalk electric snippets: make iterator variable naming logic more configurable Jan Vrany <jan.vrany@fit.cvut.cz> parents: 374 diff changeset	223	"Created: / 04-03-2015 / 08:14:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
454 9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	224	"Modified: / 02-05-2015 / 21:59:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	225	!
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	226
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	227	test_electric_snippet_do_05
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	228
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	229	UserPreferences current smallSenseElectricEditSupportEnabled: false.
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	230	codeView editedMethodOrClass: self class.
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	231	codeView contents:'editService
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	232	snippets do'.
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	233	codeView setCursorLine: 2; setCursorCol: 16.
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	234
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	235	codeViewInteractor type: ':'.
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	236	Delay waitForMilliseconds: 250.
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	237	self assert: (codeView list at: 2) = ' snippets do:'.
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	238	codeViewInteractor type: #(BackSpace).
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	239	self assert: (codeView list at: 2) = ' snippets do'.
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	240	codeViewInteractor type: ':'.
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	241	Delay waitForMilliseconds: 250.
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	242	self assert: (codeView list at: 2) = ' snippets do:'.
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	243
9ecaf7d56abe Added (missing) UserPreferences>>smallSenseElectricEditSupportEnabled Jan Vrany <jan.vrany@fit.cvut.cz> parents: 447 diff changeset	244	"Created: / 02-05-2015 / 21:58:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
274 2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	245	! !
2cfcd8eb9761 Fixes for issue #10: Extra characters inserted when typing too fast and complete-if-ambiguous is on Jan Vrany <jan.vrany@fit.cvut.cz> parents: 273 diff changeset	246
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	247	!SmalltalkEditSupportTests methodsFor:'tests - indent-on-paste'!
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	248
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	249	test_indent_on_paste_01a
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	250
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	251	UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	252	codeView contents:'test
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	253	Debug ifTrue:[
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	254
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	255	].
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	256	self halt.'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	257
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	258	codeView selectFromLine: 5 col: 5 toLine: 5 col: 14.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	259
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	260	codeViewInteractor type: #Cut.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	261	codeViewInteractor type: #(CursorUp CursorUp).
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	262	codeViewInteractor type: #Paste.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	263
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	264	self assert: (codeView list at: 3) = ' self halt.'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	265
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	266	"Created: / 23-07-2014 / 09:46:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	267	"Modified: / 11-08-2014 / 14:26:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	268	!
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	269
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	270	test_indent_on_paste_01b
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	271
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	272	UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	273	codeView contents:'test
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	274	Debug ifTrue:[
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	275
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	276	].
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	277	self halt.'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	278
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	279	codeView selectFromLine:5 col:1 toLine:6 col:0.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	280
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	281	codeViewInteractor type: #Cut.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	282	codeViewInteractor type: #(CursorUp CursorUp).
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	283	codeViewInteractor type: #Paste.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	284
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	285	self assert: (codeView list at: 3) = ' self halt.'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	286
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	287	"Created: / 23-07-2014 / 09:47:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	288	"Modified: / 11-08-2014 / 14:26:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	289	!
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	290
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	291	test_indent_on_paste_02a
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	292
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	293	UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	294	codeView contents:'test
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	295	Debug ifTrue:[
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	296
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	297	].
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	298	param isNil ifTrue:[
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	299	self halt.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	300	]'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	301
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	302	codeView selectFromLine: 5 col: 5 toLine: 7 col: 5.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	303
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	304	codeViewInteractor type: #Cut.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	305	codeViewInteractor type: #(CursorUp CursorUp).
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	306	codeViewInteractor type: #Paste.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	307
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	308	self assert: (codeView list at: 3) = ' param isNil ifTrue:['.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	309	self assert: (codeView list at: 4) = ' self halt.'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	310	self assert: (codeView list at: 5) = ' ]'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	311
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	312	"Created: / 23-07-2014 / 10:20:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	313	"Modified: / 11-08-2014 / 14:26:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	314	!
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	315
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	316	test_indent_on_paste_02b
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	317
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	318	UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	319	codeView contents:'test
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	320	Debug ifTrue:[
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	321
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	322	].
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	323	param isNil ifTrue:[
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	324	self halt.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	325	]'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	326
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	327	codeView selectFromLine: 5 col: 1 toLine: 8 col: 0.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	328
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	329	codeViewInteractor type: #Cut.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	330	codeViewInteractor type: #(CursorUp CursorUp).
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	331	codeViewInteractor type: #Paste.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	332
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	333	self assert: (codeView list at: 3) = ' param isNil ifTrue:['.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	334	self assert: (codeView list at: 4) = ' self halt.'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	335	self assert: (codeView list at: 5) = ' ]'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	336
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	337	"Created: / 23-07-2014 / 10:20:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	338	"Modified: / 11-08-2014 / 14:26:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	339	!
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	340
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	341	test_indent_on_paste_03a
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	342
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	343	UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	344	codeView contents:'test
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	345	Debug ifTrue:[
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	346
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	347	].
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	348	param isNil ifTrue:[
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	349	self halt.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	350	]'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	351
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	352	codeView selectFromLine: 5 col: 5 toLine: 6 col: 18.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	353
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	354	codeViewInteractor type: #Cut.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	355	codeViewInteractor type: #(CursorUp CursorUp).
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	356	codeViewInteractor type: #Paste.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	357
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	358	self assert: (codeView list at: 3) = ' param isNil ifTrue:['.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	359	self assert: (codeView list at: 4) = ' self halt.'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	360
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	361	"Created: / 23-07-2014 / 23:28:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	362	"Modified: / 11-08-2014 / 14:26:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	363	!
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	364
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	365	test_indent_on_paste_03b
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	366
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	367	UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	368	codeView contents:'test
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	369	Debug ifTrue:[
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	370
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	371	].
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	372	param isNil ifTrue:[
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	373	self halt.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	374	]'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	375
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	376	codeView selectFromLine: 5 col: 1 toLine: 7 col: 0.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	377
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	378
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	379	codeViewInteractor type: #Cut.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	380	codeViewInteractor type: #(CursorUp CursorUp).
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	381	codeViewInteractor type: #Paste.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	382
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	383	self assert: (codeView list at: 3) = ' param isNil ifTrue:['.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	384	self assert: (codeView list at: 4) = ' self halt.'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	385
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	386	"Created: / 23-07-2014 / 23:28:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	387	"Modified: / 11-08-2014 / 14:26:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	388	!
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	389
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	390	test_indent_on_paste_04a
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	391
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	392	UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	393	codeView contents:'test
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	394	Debug ifTrue:[
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	395	Transcript showCR:''XXX''.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	396	].
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	397	self halt.'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	398
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	399	codeView selectFromLine: 5 col: 5 toLine: 5 col: 14.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	400
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	401	codeViewInteractor type: #Cut.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	402	codeViewInteractor type: #(CursorUp CursorUp).
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	403	codeViewInteractor type: #Paste.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	404
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	405	self assert: (codeView list at: 3) = ' self halt. Transcript showCR:''XXX''.'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	406
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	407	"Created: / 24-07-2014 / 10:18:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	408	"Modified: / 11-08-2014 / 14:26:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	409	!
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	410
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	411	test_indent_on_paste_04b
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	412
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	413	UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	414	codeView contents:'test
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	415	Debug ifTrue:[
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	416	Transcript showCR:''XXX''.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	417	].
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	418	self halt.'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	419
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	420	codeView selectFromLine: 5 col: 5 toLine: 6 col: 0.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	421
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	422	codeViewInteractor type: #Cut.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	423	codeViewInteractor type: #(CursorUp CursorUp).
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	424	codeViewInteractor type: #Paste.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	425
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	426	self assert: (codeView list at: 3) = ' self halt.'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	427	self assert: (codeView list at: 4) = ' Transcript showCR:''XXX''.'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	428
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	429	"Created: / 24-07-2014 / 10:21:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	430	"Modified: / 11-08-2014 / 14:26:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	431	!
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	432
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	433	test_indent_on_paste_04c
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	434
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	435	UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	436	codeView contents:'test
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	437	Debug ifTrue:[
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	438	Transcript showCR:''XXX''.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	439	].
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	440	self halt.'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	441
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	442	codeView selectFromLine: 5 col: 5 toLine: 6 col: 0.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	443
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	444	codeViewInteractor type: #Cut.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	445	codeViewInteractor type: #(CursorUp CursorUp CursorRight CursorRight CursorRight CursorRight).
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	446	codeViewInteractor type: #Paste.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	447
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	448	self assert: (codeView list at: 3) = ' self halt.'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	449	self assert: (codeView list at: 4) = 'Transcript showCR:''XXX''.'.
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	450
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	451	"Created: / 24-07-2014 / 10:22:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
273 404662b42ddf Added AbstractTestCase which saves/restores preferences in setUp/tearDown... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 257 diff changeset	452	"Modified: / 11-08-2014 / 14:26:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
257 623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	453	! !
623cefc35e2e Fix for DNU when indent-on-paste is enabled. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	454

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 25 Oct 2017 23:42:41 +0100
changeset 1058	6d4bf422a7dd
parent 458	de41bf2025c0
permissions	-rw-r--r--