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