test/MCInitializationTest.st
author Claus Gittinger <cg@exept.de>
Sat, 01 Sep 2018 17:32:13 +0200
changeset 1086 efc5221435a5
parent 812 ae7459c6e758
child 1121 c5661215109c
permissions -rw-r--r--
initial checkin
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
6
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/monticello/test' }"
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
MCTestCase subclass:#MCInitializationTest
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:''
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
812
ae7459c6e758 Tests moved to category SCM-Monticello-Tests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
     7
	category:'SCM-Monticello-Tests'
6
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
!MCInitializationTest class methodsFor:'as yet unclassified'!
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
isAbstract
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
        ^ (Smalltalk classNamed: #MczInstaller) isNil
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
    "Modified: / 16-11-2006 / 16:43:53 / cg"
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
! !
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
!MCInitializationTest methodsFor:'as yet unclassified'!
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
tearDown
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
	(MCWorkingCopy forPackage: self mockPackage) unregister
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
testWorkingCopy
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
	MczInstaller storeVersionInfo: self mockVersion.
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
	MCWorkingCopy initialize.
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
	MCWorkingCopy allManagers
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
						detect: [:man | man package name = self mockPackage name]
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
						ifNone: [self assert: false]
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
! !
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
!MCInitializationTest class methodsFor:'documentation'!
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
version
812
ae7459c6e758 Tests moved to category SCM-Monticello-Tests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
    36
    ^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCInitializationTest.st,v 1.2 2013-05-29 00:01:07 vrany Exp $'
6
315f77dc132d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
! !
812
ae7459c6e758 Tests moved to category SCM-Monticello-Tests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 6
diff changeset
    38