"{ 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.2 2011-08-20 12:28:44 cg Exp $'

!

version_CVS

    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCTestCase.st,v 1.2 2011-08-20 12:28:44 cg Exp $'

!

version_SVN

    ^ '§Id: MCTestCase.st 10 2010-09-13 11:28:19Z vranyj1 §'

! !