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

TestResource subclass:#MCSnapshotResource
	instanceVariableNames:'snapshot'
	classVariableNames:''
	poolDictionaries:''
	category:'Monticello-Tests'
!


!MCSnapshotResource class methodsFor:'as yet unclassified'!

mockPackage
	^ (MCPackage new name: self mockPackageName)
!

mockPackageName
	^ MCMockPackageInfo new packageName
!

takeSnapshot
	^ self mockPackage snapshot
! !

!MCSnapshotResource methodsFor:'as yet unclassified'!

definitions
	^ snapshot definitions
!

setUp
	snapshot := self class takeSnapshot.
!

snapshot
	^ snapshot
! !

!MCSnapshotResource class methodsFor:'documentation'!

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

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

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