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

     2 

     3 MCTestCase subclass:#MCInitializationTest

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'Monticello-Tests'

     8 !

     9 

    10 

    11 !MCInitializationTest class methodsFor:'as yet unclassified'!

    12 

    13 isAbstract

    14         ^ (Smalltalk classNamed: #MczInstaller) notNil

    15 

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

    17 ! !

    18 

    19 !MCInitializationTest methodsFor:'as yet unclassified'!

    20 

    21 tearDown

    22 	(MCWorkingCopy forPackage: self mockPackage) unregister

    23 !

    24 

    25 testWorkingCopy

    26 	MczInstaller storeVersionInfo: self mockVersion.

    27 	MCWorkingCopy initialize.

    28 	MCWorkingCopy allManagers

    29 						detect: [:man | man package name = self mockPackage name]

    30 						ifNone: [self assert: false]

    31 ! !

    32 

    33 !MCInitializationTest class methodsFor:'documentation'!

    34 

    35 version

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

    37 !

    38 

    39 version_CVS

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

    41 !

    42 

    43 version_SVN

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

    45 ! !