"{ 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 §'
! !