"

stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE

Copyright (C) 2013-2014 Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License. 

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

"{ Package: 'stx:goodies/smallsense' }"

"{ NameSpace: SmallSense }"

EditSupportTests subclass:#SmalltalkEditSupportTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'SmallSense-Tests'

!

!SmalltalkEditSupportTests class methodsFor:'documentation'!

copyright

"

stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE

Copyright (C) 2013-2014 Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License. 

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

! !

!SmalltalkEditSupportTests methodsFor:'accessing-classes'!

editSupportClass

    "superclass SmallSense::EditSupportTests says that I am responsible to implement this method"

    ^ SmalltalkEditSupport

    "Created: / 23-07-2014 / 07:16:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SmalltalkEditSupportTests methodsFor:'tests - completion'!

test_complete_if_unambiguous_01    

    UserPreferences current smallSenseCompleteIfUnambiguous: true.  

    codeView editedMethodOrClass: self class.

    codeView contents:'editService'.

    codeView setCursorCol: 12.

    codeViewInteractor type: #(Return Tab).

    codeViewInteractor type: 't'.

    Delay waitForMilliseconds: 250.

    codeViewInteractor type: 'h'.

    self assert: (codeView list at: 2) = '    thisContext'.

    Delay waitForMilliseconds: 250.

    codeViewInteractor type: 'isContext'.

    self assert: (codeView list at: 2) = '    thisContext'.

    "Created: / 23-07-2014 / 23:38:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-08-2014 / 14:58:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_complete_if_unambiguous_02

    UserPreferences current smallSenseCompleteIfUnambiguous: true.  

    codeView editedMethodOrClass: self class.

    codeView contents:'editService'.

    codeView setCursorCol: 12.

    codeViewInteractor type: #(Return Tab).

    codeViewInteractor type: 't'.

    Delay waitForMilliseconds: 250.

    codeViewInteractor type: 'h'.

    self assert: (codeView list at: 2) = '    thisContext'.

    Delay waitForMilliseconds: 250.

    codeViewInteractor type: 'is receiver'.

    self assert: (codeView list at: 2) = '    thisContext receiver'.

    "Created: / 11-08-2014 / 15:00:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_complete_if_unambiguous_03

    UserPreferences current smallSenseCompleteIfUnambiguous: true.  

    codeView editedMethodOrClass: self class.

    codeView contents:'editService'.

    codeView setCursorCol: 12.

    codeViewInteractor type: #(Return Tab).

    codeViewInteractor type: 't'.

    Delay waitForMilliseconds: 250.

    codeViewInteractor type: 'h'.

    self assert: (codeView list at: 2) = '    thisContext'.

    Delay waitForMilliseconds: 250.

    codeViewInteractor type: 'isValue'.

    self assert: (codeView list at: 2) = '    thisValue'.

    "Created: / 11-08-2014 / 15:01:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!SmalltalkEditSupportTests methodsFor:'tests - indent-on-paste'!

test_indent_on_paste_01a

    UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.

    codeView contents:'test

    Debug ifTrue:[ 

    ].

    self halt.'.

    codeView selectFromLine: 5 col: 5 toLine: 5 col: 14.

    codeViewInteractor type: #Cut.

    codeViewInteractor type: #(CursorUp CursorUp).

    codeViewInteractor type: #Paste.

    self assert: (codeView list at: 3) = '        self halt.'.

    "Created: / 23-07-2014 / 09:46:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-08-2014 / 14:26:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_indent_on_paste_01b

    UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.

    codeView contents:'test

    Debug ifTrue:[ 

    ].

    self halt.'.

    codeView selectFromLine:5 col:1 toLine:6 col:0.

    codeViewInteractor type: #Cut.

    codeViewInteractor type: #(CursorUp CursorUp).

    codeViewInteractor type: #Paste.

    self assert: (codeView list at: 3) = '        self halt.'.

    "Created: / 23-07-2014 / 09:47:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-08-2014 / 14:26:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_indent_on_paste_02a

    UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.

    codeView contents:'test

    Debug ifTrue:[ 

    ].

    param isNil ifTrue:[

        self halt.

    ]'.

    codeView selectFromLine: 5 col: 5 toLine: 7 col: 5.

    codeViewInteractor type: #Cut.

    codeViewInteractor type: #(CursorUp CursorUp).

    codeViewInteractor type: #Paste.

    self assert: (codeView list at: 3) = '        param isNil ifTrue:['.

    self assert: (codeView list at: 4) = '            self halt.'.

    self assert: (codeView list at: 5) = '        ]'.

    "Created: / 23-07-2014 / 10:20:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-08-2014 / 14:26:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_indent_on_paste_02b

    UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.

    codeView contents:'test

    Debug ifTrue:[ 

    ].

    param isNil ifTrue:[

        self halt.

    ]'.

    codeView selectFromLine: 5 col: 1 toLine: 8 col: 0.

    codeViewInteractor type: #Cut.

    codeViewInteractor type: #(CursorUp CursorUp).

    codeViewInteractor type: #Paste.

    self assert: (codeView list at: 3) = '        param isNil ifTrue:['.

    self assert: (codeView list at: 4) = '            self halt.'.

    self assert: (codeView list at: 5) = '        ]'.

    "Created: / 23-07-2014 / 10:20:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-08-2014 / 14:26:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_indent_on_paste_03a

    UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.

    codeView contents:'test

    Debug ifTrue:[ 

    ].

    param isNil ifTrue:[

        self halt.

    ]'.

    codeView selectFromLine: 5 col: 5 toLine: 6 col: 18.

    codeViewInteractor type: #Cut.

    codeViewInteractor type: #(CursorUp CursorUp).

    codeViewInteractor type: #Paste.

    self assert: (codeView list at: 3) = '        param isNil ifTrue:['.

    self assert: (codeView list at: 4) = '            self halt.'.

    "Created: / 23-07-2014 / 23:28:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-08-2014 / 14:26:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_indent_on_paste_03b

    UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.

    codeView contents:'test

    Debug ifTrue:[ 

    ].

    param isNil ifTrue:[

        self halt.

    ]'.

    codeView selectFromLine: 5 col: 1 toLine: 7 col: 0.

    codeViewInteractor type: #Cut.

    codeViewInteractor type: #(CursorUp CursorUp).

    codeViewInteractor type: #Paste.

    self assert: (codeView list at: 3) = '        param isNil ifTrue:['.

    self assert: (codeView list at: 4) = '            self halt.'.

    "Created: / 23-07-2014 / 23:28:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-08-2014 / 14:26:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_indent_on_paste_04a

    UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.

    codeView contents:'test

    Debug ifTrue:[ 

        Transcript showCR:''XXX''.

    ].

    self halt.'.

    codeView selectFromLine: 5 col: 5 toLine: 5 col: 14.

    codeViewInteractor type: #Cut.

    codeViewInteractor type: #(CursorUp CursorUp).

    codeViewInteractor type: #Paste.

    self assert: (codeView list at: 3) = '    self halt.    Transcript showCR:''XXX''.'.

    "Created: / 24-07-2014 / 10:18:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-08-2014 / 14:26:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_indent_on_paste_04b

    UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.

    codeView contents:'test

    Debug ifTrue:[ 

        Transcript showCR:''XXX''.

    ].

    self halt.'.

    codeView selectFromLine: 5 col: 5 toLine: 6 col: 0.

    codeViewInteractor type: #Cut.

    codeViewInteractor type: #(CursorUp CursorUp).

    codeViewInteractor type: #Paste.

    self assert: (codeView list at: 3) = '    self halt.'.

    self assert: (codeView list at: 4) = '    Transcript showCR:''XXX''.'.

    "Created: / 24-07-2014 / 10:21:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-08-2014 / 14:26:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

test_indent_on_paste_04c

    UserPreferences current smallSenseSmalltalkIndentOnPasteEnabled: true.

    codeView contents:'test

    Debug ifTrue:[ 

        Transcript showCR:''XXX''.

    ].

    self halt.'.

    codeView selectFromLine: 5 col: 5 toLine: 6 col: 0.

    codeViewInteractor type: #Cut.

    codeViewInteractor type: #(CursorUp CursorUp CursorRight CursorRight CursorRight CursorRight).

    codeViewInteractor type: #Paste.

    self assert: (codeView list at: 3) = '        self halt.'.

    self assert: (codeView list at: 4) = 'Transcript showCR:''XXX''.'.

    "Created: / 24-07-2014 / 10:22:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-08-2014 / 14:26:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !