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

PackageInfo subclass:#MCMockPackageInfo
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'SCM-Monticello-Mocks'
!


!MCMockPackageInfo class methodsFor:'as yet unclassified'!

initialize
	[self new register] on: MessageNotUnderstood do: []
! !

!MCMockPackageInfo methodsFor:'as yet unclassified'!

classNames
	^ #(	MCMockClassA
		 	MCMockASubclass
			MCMockClassB
			MCMockClassD
			MCMockClassE
			MCMockClassF
			MCMockClassG
			MCMockClassH
			MCMockClassI
		)
!

classes
	^ self classNames 
		select: [:name | Smalltalk hasClassNamed: name]
		thenCollect: [:name | Smalltalk at: name]
!

extensionMethods
	^ Array with: (MethodReference new 
					setStandardClass: MCSnapshotTest 
					methodSymbol: #mockClassExtension)
!

includesClass: aClass
	^self classes includes: aClass
!

includesSystemCategory: categoryName
	^self systemCategories anySatisfy: [:cat | cat sameAs: categoryName]
!

packageName
	^ 'MonticelloMocks'
!

systemCategories
	^ Array with: 'Monticello-Mocks'
! !

!MCMockPackageInfo class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMockPackageInfo.st,v 1.4 2012-09-11 21:24:30 cg Exp $'
!

version_CVS
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMockPackageInfo.st,v 1.4 2012-09-11 21:24:30 cg Exp $'
!

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

MCMockPackageInfo initialize!