author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Thu, 26 Oct 2017 12:35:22 +0000 | |
changeset 1059 | acfcb242f75e |
parent 883 | 9c644e7c1d97 |
permissions | -rw-r--r-- |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
1 |
"{ Encoding: utf8 }" |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
2 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
3 |
" |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
4 |
stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE |
374
e65bd2bf892a
Updated copyright notice.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
258
diff
changeset
|
5 |
Copyright (C) 2013-2015 Jan Vrany |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
6 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
7 |
This library is free software; you can redistribute it and/or |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
8 |
modify it under the terms of the GNU Lesser General Public |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
9 |
License as published by the Free Software Foundation; either |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
10 |
version 2.1 of the License. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
11 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
12 |
This library is distributed in the hope that it will be useful, |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
13 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
14 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
15 |
Lesser General Public License for more details. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
16 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
17 |
You should have received a copy of the GNU Lesser General Public |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
18 |
License along with this library; if not, write to the Free Software |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
19 |
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
20 |
" |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
21 |
"{ Package: 'stx:goodies/smallsense' }" |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
22 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
23 |
"{ NameSpace: SmallSense }" |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
24 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
25 |
CompletionEngineTests subclass:#SmalltalkCompletionEngineTests |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
26 |
instanceVariableNames:'' |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
27 |
classVariableNames:'' |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
28 |
poolDictionaries:'' |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
29 |
category:'SmallSense-Tests' |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
30 |
! |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
31 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
32 |
!SmalltalkCompletionEngineTests class methodsFor:'documentation'! |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
33 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
34 |
copyright |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
35 |
" |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
36 |
stx:goodies/smallsense - A productivity plugin for Smalltalk/X IDE |
374
e65bd2bf892a
Updated copyright notice.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
258
diff
changeset
|
37 |
Copyright (C) 2013-2015 Jan Vrany |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
38 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
39 |
This library is free software; you can redistribute it and/or |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
40 |
modify it under the terms of the GNU Lesser General Public |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
41 |
License as published by the Free Software Foundation; either |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
42 |
version 2.1 of the License. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
43 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
44 |
This library is distributed in the hope that it will be useful, |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
45 |
but WITHOUT ANY WARRANTY; without even the implied warranty of |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
46 |
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
47 |
Lesser General Public License for more details. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
48 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
49 |
You should have received a copy of the GNU Lesser General Public |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
50 |
License along with this library; if not, write to the Free Software |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
51 |
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
52 |
" |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
53 |
! ! |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
54 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
55 |
!SmalltalkCompletionEngineTests methodsFor:'accessing-classes'! |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
56 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
57 |
completionEngineClass |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
58 |
"superclass SmallSense::CompletionEngineTests says that I am responsible to implement this method" |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
59 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
60 |
^ SmalltalkCompletionEngine |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
61 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
62 |
"Created: / 24-07-2014 / 11:51:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
447
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
63 |
! |
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
64 |
|
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
65 |
completionLanguage |
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
66 |
^ SmalltalkLanguage instance |
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
67 |
|
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
68 |
"Created: / 07-03-2015 / 10:35:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
69 |
! ! |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
70 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
71 |
!SmalltalkCompletionEngineTests methodsFor:'tests - classes'! |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
72 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
73 |
test_classes_01a |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
74 |
|
395
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
75 |
codeView classHolder value: self class. |
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
76 |
codeView codeAspect: #method. |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
77 |
self complete:'foo |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
78 |
^ SmalltalkCompletionEngineTe┃'. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
79 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
80 |
self assert: result notEmpty. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
81 |
self assert: (result select:[:each | each isSmallSenseClassPO and:[each klass == SmalltalkCompletionEngineTests]]) size == 1. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
82 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
83 |
"Created: / 24-07-2014 / 15:12:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
395
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
84 |
"Modified: / 12-02-2015 / 00:08:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
85 |
! |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
86 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
87 |
test_classes_01b |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
88 |
|
395
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
89 |
codeView classHolder value: self class. |
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
90 |
codeView codeAspect: #method. |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
91 |
self complete:'foo |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
92 |
^ OrderedColl┃'. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
93 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
94 |
self assert: result notEmpty. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
95 |
self assert: (result select:[:each | each isSmallSenseClassPO and:[each klass == OrderedCollection]]) size == 1. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
96 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
97 |
"Created: / 24-07-2014 / 15:12:51 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
395
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
98 |
"Modified: / 12-02-2015 / 00:10:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
99 |
! |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
100 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
101 |
test_classes_01c |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
102 |
|
395
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
103 |
codeView classHolder value: self class. |
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
104 |
codeView codeAspect: #method. |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
105 |
self complete:'foo |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
106 |
^ OperatingSyst┃'. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
107 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
108 |
self assert: result notEmpty. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
109 |
self assert: (result select:[:each | each isSmallSenseVariablePO and:[each name = 'OperatingSystem' ]]) size == 1. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
110 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
111 |
"Created: / 24-07-2014 / 15:14:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
395
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
112 |
"Modified: / 12-02-2015 / 00:10:35 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
113 |
! |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
114 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
115 |
test_classes_02a |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
116 |
|
395
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
117 |
codeView classHolder value: self class. |
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
118 |
codeView codeAspect: #method. |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
119 |
self complete:'foo |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
120 |
^ Phase┃'. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
121 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
122 |
self assert: result notEmpty. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
123 |
self assert: (result select:[:each | each isSmallSenseClassPO and:[each klass = SmalltalkInferencer::Phase1 ]]) size == 1. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
124 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
125 |
"Created: / 24-07-2014 / 17:50:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
395
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
126 |
"Modified: / 12-02-2015 / 00:10:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
127 |
! |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
128 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
129 |
test_classes_02b |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
130 |
|
395
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
131 |
codeView classHolder value: self class. |
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
132 |
codeView codeAspect: #method. |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
133 |
self complete:'foo |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
134 |
^ SmalltalkInfe┃'. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
135 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
136 |
self assert: result notEmpty. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
137 |
self assert: (result select:[:each | each isSmallSenseClassPO and:[each klass = SmalltalkInferencer::Phase1 ]]) size == 1. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
138 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
139 |
"Created: / 24-07-2014 / 17:50:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
395
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
140 |
"Modified: / 12-02-2015 / 00:10:52 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
141 |
! |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
142 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
143 |
test_classes_03 |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
144 |
|
395
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
145 |
codeView classHolder value: self class. |
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
146 |
codeView codeAspect: #method. |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
147 |
self complete:'foo |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
148 |
^ ClassL┃'. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
149 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
150 |
self assert: result notEmpty. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
151 |
self assert: (result select:[:each | each isSmallSenseClassPO and:[each klass = Tools::ClassList ]]) size == 1. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
152 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
153 |
"Created: / 24-07-2014 / 17:53:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
395
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
154 |
"Modified: / 12-02-2015 / 00:10:59 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
155 |
! |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
156 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
157 |
test_classes_04 |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
158 |
|
395
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
159 |
codeView classHolder value: SmalltalkInferencer. |
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
160 |
codeView codeAspect: #method. |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
161 |
self complete:'foo |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
162 |
^ Pha┃'. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
163 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
164 |
self assert: result notEmpty. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
165 |
self assert: (result select:[:each | each isSmallSenseClassPO and:[each klass = SmalltalkInferencer::Phase1 ]]) size == 1. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
166 |
self assert: (result select:[:each | each isSmallSenseClassPO and:[each klass = SmalltalkInferencer::Phase2 ]]) size == 1. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
167 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
168 |
"Created: / 24-07-2014 / 19:10:48 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
395
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
169 |
"Modified: / 12-02-2015 / 00:11:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
170 |
! |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
171 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
172 |
test_classes_05 |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
173 |
|
395
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
174 |
codeView classHolder value: SmalltalkInferencer. |
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
175 |
codeView codeAspect: #method. |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
176 |
self complete:'foo |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
177 |
^ Scree┃'. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
178 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
179 |
self assert: result notEmpty. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
180 |
self assert: (result select:[:each | each isSmallSenseVariablePO and:[each name = 'Screen' ]]) size == 1. |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
181 |
|
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
182 |
"Created: / 24-07-2014 / 19:54:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
395
25ed27eaeaae
Completion: added support for SmallSense completion in an inspector views.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
374
diff
changeset
|
183 |
"Modified: / 12-02-2015 / 00:11:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
258
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
184 |
! ! |
1b0df5fb47b9
Refactored and fixes class name completion.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff
changeset
|
185 |
|
447
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
186 |
!SmalltalkCompletionEngineTests methodsFor:'tests - methods'! |
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
187 |
|
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
188 |
test_methods_01a |
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
189 |
| po_between_and | |
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
190 |
|
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
191 |
codeView classHolder value: self class. |
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
192 |
codeView codeAspect: #method. |
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
193 |
self complete:'foo |
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
194 |
^ 1 betwee┃'. |
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
195 |
|
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
196 |
po_between_and := result detect:[:each | each isSmallSenseMethodPO and:[each selector == #between:and:]] ifNone:[ nil ]. |
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
197 |
|
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
198 |
self assert: po_between_and notNil. |
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
199 |
|
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
200 |
po_between_and insert. |
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
201 |
|
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
202 |
self assert: (codeView list at: 2) = ' ^ 1 between: and: ' |
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
203 |
|
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
204 |
"Created: / 07-03-2015 / 10:30:41 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
883
9c644e7c1d97
Fix in Smalltalk type info manager: do not mark classes with no source stream as errorneous.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
447
diff
changeset
|
205 |
! |
9c644e7c1d97
Fix in Smalltalk type info manager: do not mark classes with no source stream as errorneous.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
447
diff
changeset
|
206 |
|
9c644e7c1d97
Fix in Smalltalk type info manager: do not mark classes with no source stream as errorneous.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
447
diff
changeset
|
207 |
test_methods_02a |
9c644e7c1d97
Fix in Smalltalk type info manager: do not mark classes with no source stream as errorneous.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
447
diff
changeset
|
208 |
| po | |
9c644e7c1d97
Fix in Smalltalk type info manager: do not mark classes with no source stream as errorneous.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
447
diff
changeset
|
209 |
|
9c644e7c1d97
Fix in Smalltalk type info manager: do not mark classes with no source stream as errorneous.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
447
diff
changeset
|
210 |
codeView classHolder value: self class. |
9c644e7c1d97
Fix in Smalltalk type info manager: do not mark classes with no source stream as errorneous.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
447
diff
changeset
|
211 |
codeView codeAspect: #method. |
9c644e7c1d97
Fix in Smalltalk type info manager: do not mark classes with no source stream as errorneous.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
447
diff
changeset
|
212 |
self complete:'foo |
9c644e7c1d97
Fix in Smalltalk type info manager: do not mark classes with no source stream as errorneous.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
447
diff
changeset
|
213 |
^ self test_methods_02┃'. |
9c644e7c1d97
Fix in Smalltalk type info manager: do not mark classes with no source stream as errorneous.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
447
diff
changeset
|
214 |
|
9c644e7c1d97
Fix in Smalltalk type info manager: do not mark classes with no source stream as errorneous.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
447
diff
changeset
|
215 |
po := result detect:[:each | each isSmallSenseMethodPO and:[each selector == #test_methods_02a]] ifNone:[ nil ]. |
9c644e7c1d97
Fix in Smalltalk type info manager: do not mark classes with no source stream as errorneous.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
447
diff
changeset
|
216 |
|
9c644e7c1d97
Fix in Smalltalk type info manager: do not mark classes with no source stream as errorneous.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
447
diff
changeset
|
217 |
self assert: po notNil. |
9c644e7c1d97
Fix in Smalltalk type info manager: do not mark classes with no source stream as errorneous.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
447
diff
changeset
|
218 |
|
9c644e7c1d97
Fix in Smalltalk type info manager: do not mark classes with no source stream as errorneous.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
447
diff
changeset
|
219 |
"Created: / 21-08-2015 / 16:18:13 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
447
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
220 |
! ! |
2d45c613a5bd
Completion: fix in Smalltalk completion - include last double colon for keyword selectors
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
395
diff
changeset
|
221 |