172 Class tryLocalSourceFirst:true. |
172 Class tryLocalSourceFirst:true. |
173 |
173 |
174 HGSourceCodeManager shownInBrowserMenus: true. |
174 HGSourceCodeManager shownInBrowserMenus: true. |
175 repositories:= OrderedCollection new. |
175 repositories:= OrderedCollection new. |
176 |
176 |
|
177 HGRepositoriesResource current setUpRepositoryDirectory |
|
178 |
177 "Created: / 19-09-2012 / 19:01:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
179 "Created: / 19-09-2012 / 19:01:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
178 "Modified: / 25-08-2015 / 08:30:56 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
180 "Modified: / 08-02-2017 / 09:49:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
179 ! |
181 ! |
180 |
182 |
181 tearDown |
183 tearDown |
182 "/ Restore settings |
184 "/ Restore settings |
183 #(hgCommand hgAutopush hgUseSharedRepositories) do:[:each | |
185 #(hgCommand hgAutopush hgUseSharedRepositories) do:[:each | |
190 |
192 |
191 HGSourceCodeManager shownInBrowserMenus: hgScmEnabled. |
193 HGSourceCodeManager shownInBrowserMenus: hgScmEnabled. |
192 Smalltalk at: #SourceCodeManager put: scm. |
194 Smalltalk at: #SourceCodeManager put: scm. |
193 AbstractSourceCodeManager managerPerMatchingModuleDefinitions: scmPerPackage. |
195 AbstractSourceCodeManager managerPerMatchingModuleDefinitions: scmPerPackage. |
194 Class tryLocalSourceFirst: tryLocalSourceFirst. |
196 Class tryLocalSourceFirst: tryLocalSourceFirst. |
195 |
|
196 HGPackageWorkingCopyRegistry current flush:'mocks*'. |
197 HGPackageWorkingCopyRegistry current flush:'mocks*'. |
197 |
|
198 HGRepositoriesResource current directoryForRepositories directoryContentsAsFilenames do:[:e| |
|
199 [ |
|
200 Verbose == true ifTrue:[ |
|
201 Transcript cr; show: '+-- removing '; showCR: e pathName. |
|
202 ]. |
|
203 e asFilename recursiveRemove. |
|
204 ] on: Error do:[:ex| |
|
205 "Stupid windows" |
|
206 OperatingSystem isMSWINDOWSlike ifTrue:[ |
|
207 Delay waitForSeconds: 3. |
|
208 e asFilename recursiveRemove. |
|
209 ] ifFalse:[ |
|
210 ex pass |
|
211 ]. |
|
212 ] |
|
213 ]. |
|
214 |
|
215 repositories := nil. |
198 repositories := nil. |
|
199 HGRepositoriesResource current tearDownRepositoryDirectory |
216 |
200 |
217 "Created: / 19-09-2012 / 19:03:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
201 "Created: / 19-09-2012 / 19:03:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
218 "Modified: / 30-09-2012 / 05:26:48 / jv" |
202 "Modified: / 30-09-2012 / 05:26:48 / jv" |
219 "Modified: / 25-08-2015 / 08:31:47 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
203 "Modified (format): / 08-02-2017 / 09:49:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
220 ! ! |
204 ! ! |
221 |
205 |
222 !HGTestCase methodsFor:'utilities'! |
206 !HGTestCase methodsFor:'utilities'! |
223 |
207 |
224 repositoryNamed: nm |
208 repositoryNamed: nm |