author | Merge Script |
Tue, 09 Aug 2016 06:39:39 +0200 | |
branch | jv |
changeset 1179 | a3c51fbc33cf |
parent 1162 | 6558c17e1a7f |
permissions | -rw-r--r-- |
1162
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
1 |
" |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
2 |
Copyright (c) 2007-2010 Jan Vrany |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
3 |
Copyright (c) 2009-2010 eXept Software AG |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
4 |
|
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
5 |
Permission is hereby granted, free of charge, to any person |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
6 |
obtaining a copy of this software and associated documentation |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
7 |
files (the 'Software'), to deal in the Software without |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
8 |
restriction, including without limitation the rights to use, |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
9 |
copy, modify, merge, publish, distribute, sublicense, and/or sell |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
10 |
copies of the Software, and to permit persons to whom the |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
11 |
Software is furnished to do so, subject to the following |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
12 |
conditions: |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
13 |
|
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
14 |
The above copyright notice and this permission notice shall be |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
15 |
included in all copies or substantial portions of the Software. |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
16 |
|
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
17 |
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
18 |
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
19 |
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
20 |
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
21 |
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
22 |
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
23 |
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
24 |
OTHER DEALINGS IN THE SOFTWARE. |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
25 |
" |
386 | 26 |
"{ Package: 'stx:libsvn' }" |
76 | 27 |
|
28 |
"{ NameSpace: SVN }" |
|
29 |
||
492 | 30 |
TestCase subclass:#CommitTests |
76 | 31 |
instanceVariableNames:'' |
32 |
classVariableNames:'' |
|
33 |
poolDictionaries:'' |
|
34 |
category:'SVN-Tests' |
|
35 |
! |
|
36 |
||
1162
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
37 |
!CommitTests class methodsFor:'documentation'! |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
38 |
|
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
39 |
copyright |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
40 |
" |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
41 |
Copyright (c) 2007-2010 Jan Vrany |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
42 |
Copyright (c) 2009-2010 eXept Software AG |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
43 |
|
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
44 |
Permission is hereby granted, free of charge, to any person |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
45 |
obtaining a copy of this software and associated documentation |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
46 |
files (the 'Software'), to deal in the Software without |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
47 |
restriction, including without limitation the rights to use, |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
48 |
copy, modify, merge, publish, distribute, sublicense, and/or sell |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
49 |
copies of the Software, and to permit persons to whom the |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
50 |
Software is furnished to do so, subject to the following |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
51 |
conditions: |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
52 |
|
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
53 |
The above copyright notice and this permission notice shall be |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
54 |
included in all copies or substantial portions of the Software. |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
55 |
|
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
56 |
THE SOFTWARE IS PROVIDED 'AS IS', WITHOUT WARRANTY OF ANY KIND, |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
57 |
EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
58 |
OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
59 |
NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
60 |
HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
61 |
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
62 |
FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
63 |
OTHER DEALINGS IN THE SOFTWARE. |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
64 |
|
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
65 |
" |
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
66 |
! ! |
76 | 67 |
|
68 |
!CommitTests methodsFor:'initialization & release'! |
|
69 |
||
70 |
setUp |
|
71 |
||
72 |
super setUp. |
|
73 |
Class withoutUpdatingChangesDo: |
|
492 | 74 |
[self source_stx_goodies_libsvn_CommitTests_st readStream fileIn. |
75 |
self source_SVN__CommitTestsMockA_st readStream fileIn. |
|
76 |
self source_SVN__CommitTestsMockB_st readStream fileIn] |
|
76 | 77 |
|
78 |
"Created: / 19-08-2009 / 14:59:20 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
79 |
! ! |
|
80 |
||
81 |
!CommitTests methodsFor:'sources'! |
|
82 |
||
83 |
source_SVN__CommitTestsMockA_st |
|
84 |
||
492 | 85 |
" |
86 |
SVN::CommitTestsMockA fileOutAsMethodIn: SVN::CommitTests selector: #'source_SVN__CommitTestsMockA_st' category: 'sources' |
|
76 | 87 |
|
492 | 88 |
SVN::CommitTests new source_SVN__CommitTestsMockA_st |
89 |
" |
|
76 | 90 |
|
91 |
^'''From Smalltalk/X, Version:5.4.4 on 08-04-2009 at 09:23:01 PM'' !! |
|
92 |
||
93 |
"{ Package: ''stx:goodies/libsvn_CommitTests'' }" |
|
94 |
||
95 |
"{ NameSpace: SVN }" |
|
96 |
||
97 |
Object subclass:#CommitTestsMockA |
|
492 | 98 |
instanceVariableNames:'''' |
99 |
classVariableNames:'''' |
|
100 |
poolDictionaries:'''' |
|
101 |
category:''SVN-Tests-Mocks'' |
|
76 | 102 |
!! |
103 |
||
104 |
' |
|
105 |
||
106 |
"Modified: / 19-08-2009 / 13:33:52 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
107 |
! |
|
108 |
||
109 |
source_SVN__CommitTestsMockB_st |
|
110 |
||
492 | 111 |
" |
112 |
SVN::CommitTestsMockA fileOutAsMethodIn: SVN::CommitTests selector: #'source_SVN__CommitTestsMockA_st' category: 'sources' |
|
76 | 113 |
|
492 | 114 |
SVN::CommitTests new source_SVN__CommitTestsMockA_st |
115 |
" |
|
76 | 116 |
|
117 |
^'"{ Package: ''stx:goodies/libsvn_CommitTests'' }" |
|
118 |
||
119 |
"{ NameSpace: SVN }" |
|
120 |
||
121 |
Object subclass:#CommitTestsMockB |
|
492 | 122 |
instanceVariableNames:'''' |
123 |
classVariableNames:'''' |
|
124 |
poolDictionaries:'''' |
|
125 |
category:''SVN-Tests-Mocks'' |
|
76 | 126 |
!! |
127 |
||
128 |
' |
|
129 |
||
130 |
"Created: / 09-04-2009 / 17:41:32 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
131 |
"Modified: / 19-08-2009 / 13:33:57 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
132 |
! |
|
133 |
||
134 |
source_stx_goodies_libsvn_CommitTests_st |
|
135 |
||
492 | 136 |
" |
137 |
stx_goodies_libsvnCommitTests fileOutAsMethodIn: SVN::CommitTests selector: #'source_stx_goodies_libsvnCommitTests_st' category: 'sources' |
|
76 | 138 |
|
492 | 139 |
SVN::CommitTests new source_stx_goodies_libsvnCommitTests_st |
140 |
" |
|
76 | 141 |
|
142 |
^'''From Smalltalk/X, Version:5.4.4 on 08-04-2009 at 09:23:54 PM'' !! |
|
143 |
||
144 |
"{ Package: ''stx:goodies/libsvn_CommitTests'' }" |
|
145 |
||
146 |
LibraryDefinition subclass:#stx_goodies_libsvn_CommitTests |
|
492 | 147 |
instanceVariableNames:'''' |
148 |
classVariableNames:'''' |
|
149 |
poolDictionaries:'''' |
|
150 |
category:''* Projects & Packages *'' |
|
76 | 151 |
!! |
152 |
||
153 |
!!stx_goodies_libsvn_CommitTests class methodsFor:''description''!! |
|
154 |
||
155 |
preRequisites |
|
156 |
^ #( |
|
492 | 157 |
#''stx:libbasic'' "LibraryDefinition - superclass of stx_goodies_libsvnCommitTests " |
76 | 158 |
) |
159 |
!! !! |
|
160 |
||
161 |
!!stx_goodies_libsvn_CommitTests class methodsFor:''description - contents''!! |
|
162 |
||
163 |
classNamesAndAttributes |
|
164 |
^ #( |
|
492 | 165 |
"<className> or (<className> attributes...) in load order" |
166 |
#''SVN::CommitTestsMockA'' |
|
167 |
#''SVN::CommitTestsMockB'' |
|
168 |
#''stx_goodies_libsvn_CommitTests'' |
|
76 | 169 |
) |
170 |
!! |
|
171 |
||
172 |
extensionMethodNames |
|
173 |
^ #( |
|
174 |
) |
|
175 |
!! !! |
|
176 |
||
177 |
!!stx_goodies_libsvn_CommitTests class methodsFor:''description - project information''!! |
|
178 |
||
179 |
applicationIconFileName |
|
180 |
"Return the name (without suffix) of an icon-file (the app''s icon); will be included in the rc-resource file" |
|
181 |
||
182 |
^ nil |
|
183 |
"/ ^ self applicationName |
|
184 |
!! |
|
185 |
||
186 |
companyName |
|
187 |
"Return a companyname which will appear in <lib>.rc" |
|
188 |
||
189 |
^ ''eXept Software AG'' |
|
190 |
!! |
|
191 |
||
192 |
description |
|
193 |
"Return a description string which will appear in vc.def / bc.def" |
|
194 |
||
195 |
^ ''Smalltalk/X Class library'' |
|
196 |
!! |
|
197 |
||
198 |
legalCopyright |
|
199 |
"Return a copyright string which will appear in <lib>.rc" |
|
200 |
||
201 |
^ ''Copyright Claus Gittinger 1988-2009\nCopyright eXept Software AG 1998-2009'' |
|
202 |
!! |
|
203 |
||
204 |
productName |
|
205 |
"Return a product name which will appear in <lib>.rc" |
|
206 |
||
207 |
^ ''Smalltalk/X'' |
|
208 |
!! !! |
|
209 |
||
210 |
' |
|
211 |
||
212 |
"Created: / 19-08-2009 / 13:34:32 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
213 |
! |
|
214 |
||
215 |
sources |
|
216 |
||
492 | 217 |
^super sources , |
76 | 218 |
#( |
492 | 219 |
(dir 'trunk') |
220 |
(file 'trunk/SVN__CommitTestsMockA.st' source_SVN__CommitTestsMockA_st) |
|
221 |
(file 'trunk/SVN__CommitTestsMockB.st' source_SVN__CommitTestsMockB_st) |
|
222 |
(file 'trunk/stx_goodies_libsvn_CommitTests.st' source_stx_goodies_libsvn_CommitTests_st) |
|
76 | 223 |
|
492 | 224 |
(dir 'branches') |
76 | 225 |
|
492 | 226 |
(dir 'tags') |
76 | 227 |
) |
228 |
||
229 |
"Created: / 08-04-2009 / 21:25:37 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
230 |
"Modified: / 19-08-2009 / 13:35:05 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
231 |
! ! |
|
232 |
||
233 |
!CommitTests methodsFor:'tests'! |
|
234 |
||
235 |
test_01_simple |
|
236 |
||
237 |
" |
|
492 | 238 |
Tests the simpliest commit |
76 | 239 |
" |
240 |
||
241 |
Class packageQuerySignal answer: self package do: |
|
492 | 242 |
[SVN::CommitTestsMockA compile: 'r1 ^''Revision 1''' classified: 'methods - r1']. |
76 | 243 |
|
244 |
wc commit:'CommitTests>>test_01 commit'. |
|
245 |
||
246 |
self assert: |
|
492 | 247 |
(wc branch cat: 'SVN__CommitTestsMockA.st') |
248 |
= (String streamContents:[:s| SVN::CommitTestsMockA fileOutOn: s withTimeStamp: false]). |
|
76 | 249 |
|
250 |
"Created: / 12-06-2009 / 21:46:04 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
251 |
"Modified: / 19-08-2009 / 14:57:46 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
252 |
! |
|
253 |
||
254 |
test_01_simple_ui |
|
255 |
||
256 |
| w repositoryCode imageCode | |
|
257 |
||
258 |
self assert:(Smalltalk at: #'SVN::CommitTestsMockA' ifAbsent:[nil]) notNil. |
|
259 |
||
260 |
Class packageQuerySignal answer: self package do: |
|
492 | 261 |
[SVN::CommitTestsMockA compile: 'r1 ^''Revision 1''' classified: 'methods - r1']. |
76 | 262 |
|
263 |
||
264 |
w := CommitWizard new. |
|
265 |
w task: wc commitTask. |
|
266 |
[ w open ] fork. |
|
267 |
Delay waitForSeconds: 4. |
|
268 |
self assert: w goPrevEnabledHolder value == false. |
|
269 |
self assert: w goNextEnabledHolder value == true. |
|
270 |
w goNext. |
|
271 |
self assert: w goPrevEnabledHolder value == true. |
|
272 |
self assert: w goNextEnabledHolder value == false. |
|
273 |
w pane message: 'CommitTests>>test_01 commit'. |
|
274 |
w doAccept. |
|
275 |
||
276 |
Delay waitForSeconds: 2. |
|
277 |
||
278 |
repositoryCode := (wc branch cat: 'SVN__CommitTestsMockA.st'). |
|
279 |
imageCode := (String streamContents:[:s| SVN::CommitTestsMockA fileOutOn: s withTimeStamp: false]). |
|
280 |
||
281 |
self assert: (repositoryCode = imageCode). |
|
282 |
" |
|
492 | 283 |
DiffTextView openOn: repositoryCode and: imageCode |
76 | 284 |
" |
285 |
||
286 |
"Created: / 12-06-2009 / 21:46:11 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
287 |
"Modified: / 19-08-2009 / 15:10:17 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
288 |
! |
|
289 |
||
290 |
test_02_selective_commit |
|
291 |
||
292 |
" |
|
492 | 293 |
Selective class commit test |
76 | 294 |
" |
295 |
||
296 |
self assert:(Smalltalk at: #'SVN::CommitTestsMockA' ifAbsent:[nil]) notNil. |
|
297 |
self assert:(Smalltalk at: #'SVN::CommitTestsMockB' ifAbsent:[nil]) notNil. |
|
298 |
||
299 |
Class packageQuerySignal answer: self package do: |
|
492 | 300 |
[SVN::CommitTestsMockA compile: 'r1 ^''Revision 1''' classified: 'methods - r1']. |
301 |
||
302 |
Class packageQuerySignal answer: self package do: |
|
303 |
[SVN::CommitTestsMockB compile: 'r1 ^''Revision 1''' classified: 'methods - r1']. |
|
76 | 304 |
|
305 |
wc commitTask |
|
492 | 306 |
classes: (Array with: SVN::CommitTestsMockA); |
307 |
message: 'CommitTests>>test_03 commit'; |
|
308 |
do. |
|
76 | 309 |
|
310 |
self assert: |
|
492 | 311 |
(wc branch cat: 'SVN__CommitTestsMockA.st') |
312 |
= (String streamContents:[:s| SVN::CommitTestsMockA fileOutOn: s withTimeStamp: false]). |
|
76 | 313 |
|
314 |
self assert: |
|
492 | 315 |
(wc branch cat: 'SVN__CommitTestsMockB.st') |
316 |
= self source_SVN__CommitTestsMockB_st. |
|
76 | 317 |
|
318 |
"Created: / 12-06-2009 / 21:46:25 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
319 |
"Modified: / 19-08-2009 / 14:57:54 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
320 |
! |
|
321 |
||
322 |
test_03_class_remove |
|
323 |
||
324 |
" |
|
492 | 325 |
Tests class remove |
76 | 326 |
" |
327 |
||
328 |
self assert:(Smalltalk at: #'SVN::CommitTestsMockA' ifAbsent:[nil]) notNil. |
|
329 |
self assert:(Smalltalk at: #'SVN::CommitTestsMockB' ifAbsent:[nil]) notNil. |
|
330 |
||
331 |
Smalltalk removeClass: SVN::CommitTestsMockB. |
|
332 |
||
333 |
wc commitTask |
|
492 | 334 |
message: 'CommitTests>>test_03 commit'; |
335 |
do. |
|
76 | 336 |
self assert: (wc branch list size = (2 + 4)"Make.spec, Make.proto, abbrev.stc, libInit.cc") |
337 |
||
338 |
"Created: / 12-06-2009 / 21:52:09 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
339 |
"Modified: / 19-08-2009 / 15:09:26 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
340 |
! ! |
|
341 |
||
342 |
!CommitTests class methodsFor:'documentation'! |
|
343 |
||
344 |
version |
|
345 |
^ '$Header$' |
|
223 | 346 |
! |
347 |
||
348 |
version_CVS |
|
349 |
^ '$Header$' |
|
350 |
! |
|
351 |
||
352 |
version_SVN |
|
308
f62a8ceda721
update #version_SVN with § as keyword expansion character
fm
parents:
223
diff
changeset
|
353 |
^'§Id: SVN__CommitTests.st 110 2009-08-19 13:21:10Z vranyj1 §' |
76 | 354 |
! ! |
1162
6558c17e1a7f
Fixed for use with SVN 1.7+
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
492
diff
changeset
|
355 |