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

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


!MCPatchTest methodsFor:'as yet unclassified'!

setUp
	|rev1 rev2|
	rev1 :=  MCSnapshotResource takeSnapshot.
	self change: #one toReturn: 2.
	rev2 :=  MCSnapshotResource takeSnapshot.
	patch := rev2 patchRelativeToBase: rev1.
	self change: #one toReturn: 1.
!

tearDown
	self restoreMocks
!

testPatchContents
	self assert: patch operations size = 1.
	self assert: patch operations first isModification.
	self assert: patch operations first definition selector = #one.

! !

!MCPatchTest class methodsFor:'documentation'!

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

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

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