| author | Claus Gittinger <cg@exept.de> |
| Tue, 08 May 2018 19:54:33 +0200 | |
| changeset 1042 | 3b8c88c55251 |
| parent 801 | 4f939b2809cd |
| child 1121 | c5661215109c |
| permissions | -rw-r--r-- |
| 14 | 1 |
"{ Package: 'stx:goodies/monticello/test' }"
|
2 |
||
3 |
MCTestCase subclass:#MCPackageTest |
|
4 |
instanceVariableNames:'' |
|
5 |
classVariableNames:'' |
|
6 |
poolDictionaries:'' |
|
|
801
4f939b2809cd
Tests moved to category SCM-Monticello-Tests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14
diff
changeset
|
7 |
category:'SCM-Monticello-Tests' |
| 14 | 8 |
! |
9 |
||
10 |
||
11 |
!MCPackageTest methodsFor:'running'! |
|
12 |
||
13 |
tearDown |
|
14 |
self mockSnapshot install |
|
15 |
! ! |
|
16 |
||
17 |
!MCPackageTest methodsFor:'tests'! |
|
18 |
||
19 |
testUnload |
|
20 |
| mock | |
|
21 |
self mockPackage unload. |
|
22 |
self deny: (Smalltalk hasClassNamed: #MCMockClassA). |
|
23 |
self deny: (MCSnapshotTest includesSelector: #mockClassExtension). |
|
24 |
||
25 |
mock _ (Smalltalk at: #MCMock). |
|
26 |
self assert: (mock subclasses detect: [:c | c name = #MCMockClassA] ifNone: []) isNil |
|
27 |
! ! |
|
28 |
||
29 |
!MCPackageTest class methodsFor:'documentation'! |
|
30 |
||
31 |
version |
|
|
801
4f939b2809cd
Tests moved to category SCM-Monticello-Tests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14
diff
changeset
|
32 |
^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCPackageTest.st,v 1.2 2013-05-28 23:59:48 vrany Exp $' |
| 14 | 33 |
! ! |
|
801
4f939b2809cd
Tests moved to category SCM-Monticello-Tests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
14
diff
changeset
|
34 |