"{ Package: 'stx:goodies/monticello' }"

MCTestCase subclass:#MCInitializationTest
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Monticello-Tests'
!


!MCInitializationTest class methodsFor:'as yet unclassified'!

isAbstract
        ^ (Smalltalk classNamed: #MczInstaller) notNil

    "Modified: / 18-08-2009 / 10:04:07 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!MCInitializationTest methodsFor:'as yet unclassified'!

tearDown
	(MCWorkingCopy forPackage: self mockPackage) unregister
!

testWorkingCopy
	MczInstaller storeVersionInfo: self mockVersion.
	MCWorkingCopy initialize.
	MCWorkingCopy allManagers
						detect: [:man | man package name = self mockPackage name]
						ifNone: [self assert: false]
! !

!MCInitializationTest class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCInitializationTest.st,v 1.1 2011-08-20 12:07:45 cg Exp $'
!

version_CVS
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCInitializationTest.st,v 1.1 2011-08-20 12:07:45 cg Exp $'
!

version_SVN
    ^ '§Id: MCInitializationTest.st 5 2010-08-29 07:30:29Z vranyj1 §'
! !