| author | fm |
| Mon, 19 Oct 2009 14:52:48 +0200 | |
| changeset 492 | 74ff0960961c |
| parent 386 | a189c8f3954d |
| child 1162 | 6558c17e1a7f |
| permissions | -rw-r--r-- |
| 386 | 1 |
"{ Package: 'stx:libsvn' }"
|
| 76 | 2 |
|
3 |
"{ NameSpace: SVN }"
|
|
4 |
||
| 492 | 5 |
TestCase subclass:#CommitTests |
| 76 | 6 |
instanceVariableNames:'' |
7 |
classVariableNames:'' |
|
8 |
poolDictionaries:'' |
|
9 |
category:'SVN-Tests' |
|
10 |
! |
|
11 |
||
12 |
||
13 |
!CommitTests methodsFor:'initialization & release'! |
|
14 |
||
15 |
setUp |
|
16 |
||
17 |
super setUp. |
|
18 |
Class withoutUpdatingChangesDo: |
|
| 492 | 19 |
[self source_stx_goodies_libsvn_CommitTests_st readStream fileIn. |
20 |
self source_SVN__CommitTestsMockA_st readStream fileIn. |
|
21 |
self source_SVN__CommitTestsMockB_st readStream fileIn] |
|
| 76 | 22 |
|
23 |
"Created: / 19-08-2009 / 14:59:20 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
24 |
! ! |
|
25 |
||
26 |
!CommitTests methodsFor:'sources'! |
|
27 |
||
28 |
source_SVN__CommitTestsMockA_st |
|
29 |
||
| 492 | 30 |
" |
31 |
SVN::CommitTestsMockA fileOutAsMethodIn: SVN::CommitTests selector: #'source_SVN__CommitTestsMockA_st' category: 'sources' |
|
| 76 | 32 |
|
| 492 | 33 |
SVN::CommitTests new source_SVN__CommitTestsMockA_st |
34 |
" |
|
| 76 | 35 |
|
36 |
^'''From Smalltalk/X, Version:5.4.4 on 08-04-2009 at 09:23:01 PM'' !! |
|
37 |
||
38 |
"{ Package: ''stx:goodies/libsvn_CommitTests'' }"
|
|
39 |
||
40 |
"{ NameSpace: SVN }"
|
|
41 |
||
42 |
Object subclass:#CommitTestsMockA |
|
| 492 | 43 |
instanceVariableNames:'''' |
44 |
classVariableNames:'''' |
|
45 |
poolDictionaries:'''' |
|
46 |
category:''SVN-Tests-Mocks'' |
|
| 76 | 47 |
!! |
48 |
||
49 |
' |
|
50 |
||
51 |
"Modified: / 19-08-2009 / 13:33:52 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
52 |
! |
|
53 |
||
54 |
source_SVN__CommitTestsMockB_st |
|
55 |
||
| 492 | 56 |
" |
57 |
SVN::CommitTestsMockA fileOutAsMethodIn: SVN::CommitTests selector: #'source_SVN__CommitTestsMockA_st' category: 'sources' |
|
| 76 | 58 |
|
| 492 | 59 |
SVN::CommitTests new source_SVN__CommitTestsMockA_st |
60 |
" |
|
| 76 | 61 |
|
62 |
^'"{ Package: ''stx:goodies/libsvn_CommitTests'' }"
|
|
63 |
||
64 |
"{ NameSpace: SVN }"
|
|
65 |
||
66 |
Object subclass:#CommitTestsMockB |
|
| 492 | 67 |
instanceVariableNames:'''' |
68 |
classVariableNames:'''' |
|
69 |
poolDictionaries:'''' |
|
70 |
category:''SVN-Tests-Mocks'' |
|
| 76 | 71 |
!! |
72 |
||
73 |
' |
|
74 |
||
75 |
"Created: / 09-04-2009 / 17:41:32 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
76 |
"Modified: / 19-08-2009 / 13:33:57 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
77 |
! |
|
78 |
||
79 |
source_stx_goodies_libsvn_CommitTests_st |
|
80 |
||
| 492 | 81 |
" |
82 |
stx_goodies_libsvnCommitTests fileOutAsMethodIn: SVN::CommitTests selector: #'source_stx_goodies_libsvnCommitTests_st' category: 'sources' |
|
| 76 | 83 |
|
| 492 | 84 |
SVN::CommitTests new source_stx_goodies_libsvnCommitTests_st |
85 |
" |
|
| 76 | 86 |
|
87 |
^'''From Smalltalk/X, Version:5.4.4 on 08-04-2009 at 09:23:54 PM'' !! |
|
88 |
||
89 |
"{ Package: ''stx:goodies/libsvn_CommitTests'' }"
|
|
90 |
||
91 |
LibraryDefinition subclass:#stx_goodies_libsvn_CommitTests |
|
| 492 | 92 |
instanceVariableNames:'''' |
93 |
classVariableNames:'''' |
|
94 |
poolDictionaries:'''' |
|
95 |
category:''* Projects & Packages *'' |
|
| 76 | 96 |
!! |
97 |
||
98 |
!!stx_goodies_libsvn_CommitTests class methodsFor:''description''!! |
|
99 |
||
100 |
preRequisites |
|
101 |
^ #( |
|
| 492 | 102 |
#''stx:libbasic'' "LibraryDefinition - superclass of stx_goodies_libsvnCommitTests " |
| 76 | 103 |
) |
104 |
!! !! |
|
105 |
||
106 |
!!stx_goodies_libsvn_CommitTests class methodsFor:''description - contents''!! |
|
107 |
||
108 |
classNamesAndAttributes |
|
109 |
^ #( |
|
| 492 | 110 |
"<className> or (<className> attributes...) in load order" |
111 |
#''SVN::CommitTestsMockA'' |
|
112 |
#''SVN::CommitTestsMockB'' |
|
113 |
#''stx_goodies_libsvn_CommitTests'' |
|
| 76 | 114 |
) |
115 |
!! |
|
116 |
||
117 |
extensionMethodNames |
|
118 |
^ #( |
|
119 |
) |
|
120 |
!! !! |
|
121 |
||
122 |
!!stx_goodies_libsvn_CommitTests class methodsFor:''description - project information''!! |
|
123 |
||
124 |
applicationIconFileName |
|
125 |
"Return the name (without suffix) of an icon-file (the app''s icon); will be included in the rc-resource file" |
|
126 |
||
127 |
^ nil |
|
128 |
"/ ^ self applicationName |
|
129 |
!! |
|
130 |
||
131 |
companyName |
|
132 |
"Return a companyname which will appear in <lib>.rc" |
|
133 |
||
134 |
^ ''eXept Software AG'' |
|
135 |
!! |
|
136 |
||
137 |
description |
|
138 |
"Return a description string which will appear in vc.def / bc.def" |
|
139 |
||
140 |
^ ''Smalltalk/X Class library'' |
|
141 |
!! |
|
142 |
||
143 |
legalCopyright |
|
144 |
"Return a copyright string which will appear in <lib>.rc" |
|
145 |
||
146 |
^ ''Copyright Claus Gittinger 1988-2009\nCopyright eXept Software AG 1998-2009'' |
|
147 |
!! |
|
148 |
||
149 |
productName |
|
150 |
"Return a product name which will appear in <lib>.rc" |
|
151 |
||
152 |
^ ''Smalltalk/X'' |
|
153 |
!! !! |
|
154 |
||
155 |
' |
|
156 |
||
157 |
"Created: / 19-08-2009 / 13:34:32 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
158 |
! |
|
159 |
||
160 |
sources |
|
161 |
||
| 492 | 162 |
^super sources , |
| 76 | 163 |
#( |
| 492 | 164 |
(dir 'trunk') |
165 |
(file 'trunk/SVN__CommitTestsMockA.st' source_SVN__CommitTestsMockA_st) |
|
166 |
(file 'trunk/SVN__CommitTestsMockB.st' source_SVN__CommitTestsMockB_st) |
|
167 |
(file 'trunk/stx_goodies_libsvn_CommitTests.st' source_stx_goodies_libsvn_CommitTests_st) |
|
| 76 | 168 |
|
| 492 | 169 |
(dir 'branches') |
| 76 | 170 |
|
| 492 | 171 |
(dir 'tags') |
| 76 | 172 |
) |
173 |
||
174 |
"Created: / 08-04-2009 / 21:25:37 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
175 |
"Modified: / 19-08-2009 / 13:35:05 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
176 |
! ! |
|
177 |
||
178 |
!CommitTests methodsFor:'tests'! |
|
179 |
||
180 |
test_01_simple |
|
181 |
||
182 |
" |
|
| 492 | 183 |
Tests the simpliest commit |
| 76 | 184 |
" |
185 |
||
186 |
Class packageQuerySignal answer: self package do: |
|
| 492 | 187 |
[SVN::CommitTestsMockA compile: 'r1 ^''Revision 1''' classified: 'methods - r1']. |
| 76 | 188 |
|
189 |
wc commit:'CommitTests>>test_01 commit'. |
|
190 |
||
191 |
self assert: |
|
| 492 | 192 |
(wc branch cat: 'SVN__CommitTestsMockA.st') |
193 |
= (String streamContents:[:s| SVN::CommitTestsMockA fileOutOn: s withTimeStamp: false]). |
|
| 76 | 194 |
|
195 |
"Created: / 12-06-2009 / 21:46:04 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
196 |
"Modified: / 19-08-2009 / 14:57:46 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
197 |
! |
|
198 |
||
199 |
test_01_simple_ui |
|
200 |
||
201 |
| w repositoryCode imageCode | |
|
202 |
||
203 |
self assert:(Smalltalk at: #'SVN::CommitTestsMockA' ifAbsent:[nil]) notNil. |
|
204 |
||
205 |
Class packageQuerySignal answer: self package do: |
|
| 492 | 206 |
[SVN::CommitTestsMockA compile: 'r1 ^''Revision 1''' classified: 'methods - r1']. |
| 76 | 207 |
|
208 |
||
209 |
w := CommitWizard new. |
|
210 |
w task: wc commitTask. |
|
211 |
[ w open ] fork. |
|
212 |
Delay waitForSeconds: 4. |
|
213 |
self assert: w goPrevEnabledHolder value == false. |
|
214 |
self assert: w goNextEnabledHolder value == true. |
|
215 |
w goNext. |
|
216 |
self assert: w goPrevEnabledHolder value == true. |
|
217 |
self assert: w goNextEnabledHolder value == false. |
|
218 |
w pane message: 'CommitTests>>test_01 commit'. |
|
219 |
w doAccept. |
|
220 |
||
221 |
Delay waitForSeconds: 2. |
|
222 |
||
223 |
repositoryCode := (wc branch cat: 'SVN__CommitTestsMockA.st'). |
|
224 |
imageCode := (String streamContents:[:s| SVN::CommitTestsMockA fileOutOn: s withTimeStamp: false]). |
|
225 |
||
226 |
self assert: (repositoryCode = imageCode). |
|
227 |
" |
|
| 492 | 228 |
DiffTextView openOn: repositoryCode and: imageCode |
| 76 | 229 |
" |
230 |
||
231 |
"Created: / 12-06-2009 / 21:46:11 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
232 |
"Modified: / 19-08-2009 / 15:10:17 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
233 |
! |
|
234 |
||
235 |
test_02_selective_commit |
|
236 |
||
237 |
" |
|
| 492 | 238 |
Selective class commit test |
| 76 | 239 |
" |
240 |
||
241 |
self assert:(Smalltalk at: #'SVN::CommitTestsMockA' ifAbsent:[nil]) notNil. |
|
242 |
self assert:(Smalltalk at: #'SVN::CommitTestsMockB' ifAbsent:[nil]) notNil. |
|
243 |
||
244 |
Class packageQuerySignal answer: self package do: |
|
| 492 | 245 |
[SVN::CommitTestsMockA compile: 'r1 ^''Revision 1''' classified: 'methods - r1']. |
246 |
||
247 |
Class packageQuerySignal answer: self package do: |
|
248 |
[SVN::CommitTestsMockB compile: 'r1 ^''Revision 1''' classified: 'methods - r1']. |
|
| 76 | 249 |
|
250 |
wc commitTask |
|
| 492 | 251 |
classes: (Array with: SVN::CommitTestsMockA); |
252 |
message: 'CommitTests>>test_03 commit'; |
|
253 |
do. |
|
| 76 | 254 |
|
255 |
self assert: |
|
| 492 | 256 |
(wc branch cat: 'SVN__CommitTestsMockA.st') |
257 |
= (String streamContents:[:s| SVN::CommitTestsMockA fileOutOn: s withTimeStamp: false]). |
|
| 76 | 258 |
|
259 |
self assert: |
|
| 492 | 260 |
(wc branch cat: 'SVN__CommitTestsMockB.st') |
261 |
= self source_SVN__CommitTestsMockB_st. |
|
| 76 | 262 |
|
263 |
"Created: / 12-06-2009 / 21:46:25 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
264 |
"Modified: / 19-08-2009 / 14:57:54 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
265 |
! |
|
266 |
||
267 |
test_03_class_remove |
|
268 |
||
269 |
" |
|
| 492 | 270 |
Tests class remove |
| 76 | 271 |
" |
272 |
||
273 |
self assert:(Smalltalk at: #'SVN::CommitTestsMockA' ifAbsent:[nil]) notNil. |
|
274 |
self assert:(Smalltalk at: #'SVN::CommitTestsMockB' ifAbsent:[nil]) notNil. |
|
275 |
||
276 |
Smalltalk removeClass: SVN::CommitTestsMockB. |
|
277 |
||
278 |
wc commitTask |
|
| 492 | 279 |
message: 'CommitTests>>test_03 commit'; |
280 |
do. |
|
| 76 | 281 |
self assert: (wc branch list size = (2 + 4)"Make.spec, Make.proto, abbrev.stc, libInit.cc") |
282 |
||
283 |
"Created: / 12-06-2009 / 21:52:09 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
284 |
"Modified: / 19-08-2009 / 15:09:26 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
285 |
! ! |
|
286 |
||
287 |
!CommitTests class methodsFor:'documentation'! |
|
288 |
||
289 |
version |
|
290 |
^ '$Header$' |
|
| 223 | 291 |
! |
292 |
||
293 |
version_CVS |
|
294 |
^ '$Header$' |
|
295 |
! |
|
296 |
||
297 |
version_SVN |
|
|
308
f62a8ceda721
update #version_SVN with § as keyword expansion character
fm
parents:
223
diff
changeset
|
298 |
^'§Id: SVN__CommitTests.st 110 2009-08-19 13:21:10Z vranyj1 §' |
| 76 | 299 |
! ! |