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

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


!MCPackageTest methodsFor:'running'!

tearDown
	self mockSnapshot install
! !

!MCPackageTest methodsFor:'tests'!

testUnload
	| mock |
	self mockPackage unload.
	self deny: (Smalltalk hasClassNamed: #MCMockClassA).
	self deny: (MCSnapshotTest includesSelector: #mockClassExtension).

	mock := (Smalltalk at: #MCMock).
	self assert: (mock subclasses detect: [:c | c name = #MCMockClassA] ifNone: []) isNil
! !

!MCPackageTest class methodsFor:'documentation'!

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

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

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