author | Claus Gittinger <cg@exept.de> |
Sat, 01 Sep 2018 17:33:15 +0200 | |
changeset 1092 | 8d0ea96a3d72 |
parent 802 | 574bf7ff6949 |
child 1121 | c5661215109c |
permissions | -rw-r--r-- |
17 | 1 |
"{ Package: 'stx:goodies/monticello/test' }" |
2 |
||
3 |
MCTestCase subclass:#MCMczInstallerTest |
|
4 |
instanceVariableNames:'expected diff' |
|
5 |
classVariableNames:'' |
|
6 |
poolDictionaries:'' |
|
802
574bf7ff6949
Tests moved to category SCM-Monticello-Tests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
7 |
category:'SCM-Monticello-Tests' |
17 | 8 |
! |
9 |
||
10 |
||
11 |
!MCMczInstallerTest class methodsFor:'as yet unclassified'! |
|
12 |
||
13 |
isAbstract |
|
14 |
^ (Smalltalk classNamed: #MczInstaller) isNil |
|
15 |
||
16 |
"Modified: / 16-11-2006 / 16:43:59 / cg" |
|
17 |
! |
|
18 |
||
19 |
suite |
|
20 |
^ (Smalltalk hasClassNamed: #MczInstaller) |
|
21 |
ifTrue: [super suite] |
|
22 |
ifFalse: [TestSuite new name: self name asString] |
|
23 |
! ! |
|
24 |
||
25 |
!MCMczInstallerTest methodsFor:'as yet unclassified'! |
|
26 |
||
27 |
assertDict: dict matchesInfo: info |
|
28 |
#(name id message date time author) |
|
29 |
do: [:sel | (info perform: sel) ifNotNilDo: [:i | dict at: sel ifPresent: [:d | self assert: i = d]]]. |
|
30 |
info ancestors |
|
31 |
with: (dict at: #ancestors) |
|
32 |
do: [:i :d | self assertDict: d matchesInfo: i] |
|
33 |
! |
|
34 |
||
35 |
assertNoChange |
|
36 |
| actual | |
|
37 |
actual _ MCSnapshotResource takeSnapshot. |
|
38 |
diff _ actual patchRelativeToBase: expected snapshot. |
|
39 |
self assert: diff isEmpty |
|
40 |
! |
|
41 |
||
42 |
assertVersionInfoPresent |
|
43 |
| dict info | |
|
44 |
dict _ MczInstaller versionInfo at: self mockPackage name. |
|
45 |
info _ expected info. |
|
46 |
self assertDict: dict matchesInfo: info. |
|
47 |
! |
|
48 |
||
49 |
deleteFile |
|
50 |
(FileDirectory default fileExists: self fileName) |
|
51 |
ifTrue: [FileDirectory default deleteFileNamed: self fileName] |
|
52 |
! |
|
53 |
||
54 |
fileName |
|
55 |
^ 'InstallerTest.mcz' |
|
56 |
! |
|
57 |
||
58 |
fileStream |
|
59 |
^ FileStream forceNewFileNamed: self fileName. |
|
60 |
! |
|
61 |
||
62 |
setUp |
|
63 |
expected _ self mockVersion. |
|
64 |
self change: #one toReturn: 2. |
|
65 |
! |
|
66 |
||
67 |
tearDown |
|
68 |
expected snapshot updatePackage: self mockPackage. |
|
69 |
self deleteFile. |
|
70 |
! |
|
71 |
||
72 |
testInstallFromFile |
|
73 |
MCMczWriter fileOut: expected on: self fileStream. |
|
74 |
MczInstaller installFileNamed: self fileName. |
|
75 |
self assertNoChange. |
|
76 |
! |
|
77 |
||
78 |
testInstallFromStream |
|
79 |
| stream | |
|
80 |
stream _ RWBinaryOrTextStream on: String new. |
|
81 |
MCMczWriter fileOut: expected on: stream. |
|
82 |
MczInstaller installStream: stream reset. |
|
83 |
self assertNoChange. |
|
84 |
self assertVersionInfoPresent. |
|
85 |
||
86 |
! ! |
|
87 |
||
88 |
!MCMczInstallerTest class methodsFor:'documentation'! |
|
89 |
||
90 |
version |
|
802
574bf7ff6949
Tests moved to category SCM-Monticello-Tests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
91 |
^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCMczInstallerTest.st,v 1.2 2013-05-28 23:59:55 vrany Exp $' |
17 | 92 |
! ! |
802
574bf7ff6949
Tests moved to category SCM-Monticello-Tests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
17
diff
changeset
|
93 |