--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MCTestCase.st	Sat Aug 20 13:45:16 2011 +0200
@@ -0,0 +1,230 @@
+"{ Package: 'stx:goodies/monticello' }"
+
+TestCase subclass:#MCTestCase
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Monticello-Tests'
+!
+
+
+!MCTestCase class methodsFor:'as yet unclassified'!
+
+isAbstract
+	^ self = MCTestCase
+!
+
+resources
+	^ Array with: MCSnapshotResource
+! !
+
+!MCTestCase methodsFor:'asserting'!
+
+assertPackage: actual matches: expected
+	self assert: actual = expected
+
+!
+
+assertSnapshot: actual matches: expected
+	| diff |
+	diff := actual patchRelativeToBase: expected.
+	self assert: diff isEmpty
+
+!
+
+assertVersion: actual matches: expected
+	self assertPackage: actual package matches: expected package.	
+	self assertVersionInfo: actual info matches: expected info.
+	self assertSnapshot: actual snapshot matches: expected snapshot.
+!
+
+assertVersionInfo: actual matches: expected
+	self assert: actual name = expected name.
+	self assert: actual message = expected message.
+	self assert: actual ancestors size = expected ancestors size.
+	actual ancestors with: expected ancestors do: [:a :e | self assertVersionInfo: a matches: e]
+	
+! !
+
+!MCTestCase methodsFor:'compiling'!
+
+change: aSelector toReturn: anObject
+        self 
+                compileClass: self mockClassA 
+                source: aSelector, ' ^ ', anObject storeString 
+                category: 'numeric'
+
+    "Modified: / 13-09-2010 / 12:06:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+compileClass: aClass source: source category: category
+	aClass compileSilently: source classified: category
+!
+
+restoreMocks
+	self mockSnapshot updatePackage: self mockPackage
+! !
+
+!MCTestCase methodsFor:'mocks'!
+
+commentForClass: name
+	^ 'This is a comment for ', name
+!
+
+commentStampForClass: name
+	^ 'tester-', name,  ' 1/1/2000 00:00'
+!
+
+mockCategoryName
+	^ 'Monticello-Mocks'
+!
+
+mockClass: className super: superclassName
+	^ MCClassDefinition
+		name:  className
+		superclassName:  superclassName
+		category: self mockCategoryName
+		instVarNames: #()
+		classVarNames: #()
+		poolDictionaryNames: #()
+		classInstVarNames: #()
+		type: #normal
+		comment: (self commentForClass: className)
+		commentStamp: (self commentStampForClass: className)
+!
+
+mockClassA
+	^ Smalltalk at: #MCMockClassA
+!
+
+mockClassB
+	^ Smalltalk at: #MCMockClassB
+!
+
+mockDependencies
+	^ Array with: (MCVersionDependency package: self mockEmptyPackage info: (self mockVersionInfo: 'x'))
+!
+
+mockEmptyPackage
+	^ MCPackage named: (MCEmptyPackageInfo new packageName)
+!
+
+mockExtensionMethodCategory
+	^ MCMockPackageInfo new methodCategoryPrefix.
+!
+
+mockInstanceA
+	^ self mockClassA new
+!
+
+mockMessageString
+	^ 'A version generated for testing purposes.'
+!
+
+mockMethod: aSymbol class: className source: sourceString meta: aBoolean
+	^ MCMethodDefinition
+		className: className
+		classIsMeta: aBoolean
+		selector:  aSymbol
+		category: 'as yet unclassified'
+		timeStamp: ''
+		source: sourceString
+!
+
+mockOverrideMethodCategory
+	^ self mockExtensionMethodCategory, '-override'
+!
+
+mockPackage
+	^ MCSnapshotResource mockPackage
+!
+
+mockSnapshot
+	^ MCSnapshotResource current snapshot
+!
+
+mockToken: aSymbol
+	^ MCMockDefinition token: aSymbol
+!
+
+mockVersion
+	^ MCVersion 
+		package: self mockPackage
+		info: self mockVersionInfo
+		snapshot: self mockSnapshot
+!
+
+mockVersionInfo
+	^ self treeFrom: #(d ((b ((a))) (c)))
+!
+
+mockVersionInfo: tag 
+	^ MCVersionInfo
+		name: self mockVersionName, '-', tag asString
+		id: UUID new
+		message: self mockMessageString, '-', tag asString
+		date: Date today
+		time: Time now
+		author: Author initials
+		ancestors: #()
+
+!
+
+mockVersionInfoWithAncestor: aVersionInfo 
+	^ MCVersionInfo
+		name: aVersionInfo name, '-child'
+		id: UUID new
+		message: self mockMessageString
+		date: Date today
+		time: Time now
+		author: Author initials
+		ancestors: {aVersionInfo}
+
+!
+
+mockVersionName
+	^ 'MonticelloTest-xxx.1'
+!
+
+mockVersionWithAncestor: aMCVersion 
+	^ MCVersion
+		package: self mockPackage
+		info: (self mockVersionInfoWithAncestor: aMCVersion info)
+		snapshot: self mockSnapshot
+!
+
+mockVersionWithDependencies
+	^ MCVersion 
+		package: self mockPackage
+		info: self mockVersionInfo
+		snapshot: self mockSnapshot
+		dependencies: self mockDependencies
+!
+
+treeFrom: anArray
+	| name id |
+	name := anArray first.
+	id := '00000000-0000-0000-0000-0000000000', (name asString size = 1 ifTrue: [name asString, '0'] ifFalse: [name asString]).
+	^ MCVersionInfo
+		name: name
+		id: (UUID fromString: id)
+		message: ''
+		date: nil
+		time: nil
+		author: ''
+		ancestors: (anArray size > 1 ifTrue: [(anArray second collect: [:ea | self treeFrom: ea])] ifFalse: [#()])
+! !
+
+!MCTestCase class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCTestCase.st,v 1.1 2011-08-20 11:45:16 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCTestCase.st,v 1.1 2011-08-20 11:45:16 cg Exp $'
+!
+
+version_SVN
+    ^ '§Id: MCTestCase.st 10 2010-09-13 11:28:19Z vranyj1 §'
+! !