[Pkg] Monticello Public: Monticello.test-kph.8.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Monticello.test was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.test-kph.8.mcz

==================== Summary ====================

Name: Monticello.test-kph.8
Author: kph
Time: 7 December 2008, 5:11:55 am
UUID: ebdf234e-a8be-4b75-ba20-b448eea9d956
Ancestors: Monticello.test-kph.7

getting some working

=============== Diff against Monticello.test-kph.7 ===============

Item was added:
+ SystemOrganization addCategory: #'Monticello-Tests-Mocks'!
+ SystemOrganization addCategory: #'Monticello-Tests'!
+ SystemOrganization addCategory: #'Monticello-Files-Tests'!

Item was changed:
  ----- Method: MCTestCase>>mockEmptyPackage (in category 'mocks') -----
  mockEmptyPackage
  	^ MCPackage named: (MCEmptyPackageInfo new packageName)!

Item was changed:
  ----- Method: MCClassDefinitionTest>>testLoadAndUnload (in category 'as yet unclassified(slow)') -----
  testLoadAndUnload
  	| d c |
  	d :=  self mockClass: 'MCMockClassC' super: 'Object'.
  	d load.
  	self assert: (Smalltalk hasClassNamed: 'MCMockClassC').
  	c := (Smalltalk classNamed: 'MCMockClassC').
  	self assert: (c isKindOf: Class).
  	self assert: c superclass = Object.
  	self assert: c instVarNames isEmpty.
  	self assert: c classVarNames isEmpty.
  	self assert: c sharedPools isEmpty.
  	self assert: c category = self mockCategoryName.
  	self assert: c organization classComment = (self commentForClass: 'MCMockClassC').
  	self assert: c organization commentStamp = (self commentStampForClass: 'MCMockClassC').
  	d unload.
+ 	self deny: (Smalltalk hasClassNamed: 'MCMockClassC').
+ 	
+ !
- 	self deny: (Smalltalk hasClassNamed: 'MCMockClassC').!

Item was changed:
+ ----- Method: MCMockClassA>>d (in category 'numeric') -----
- ----- Method: MCMockClassA>>d (in category 'as yet classified') -----
  d
+ 	^ 'd1'!
- 	^ 'd'!

Item was added:
+ ----- Method: MCMockPackageInfo class>>isResponsibleForName: (in category 'as yet unclassified') -----
+ isResponsibleForName: aString
+ 
+ 	^ self new packageName = aString!

Item was changed:
  ----- Method: MCTestCase>>mockToken: (in category 'mocks') -----
  mockToken: aSymbol
+ 	^ MCMockDefinition token: aSymbol !
- 	^ MCMockDefinition token: aSymbol!

Item was changed:
  ----- Method: MCSnapshotResource class>>mockPackageName (in category 'as yet unclassified') -----
+ mockPackageName 
- mockPackageName
  	^ MCMockPackageInfo new packageName!

Item was changed:
  ----- Method: MCMethodDefinitionTest>>testCannotLoad (in category 'testing') -----
  testCannotLoad
  	| definition |
  	definition := self mockMethod: #kjahs87 class: 'NoSuchClass' source: 'kjahs87 ^self' meta: false.
+ 	self should: [definition load] raise: MCOrphanedNotification.
- 	self should: [definition load] raise: Error.
  	self assert: (navigation allImplementorsOf: #kjahs87) isEmpty!

Item was changed:
+ ----- Method: MCMockClassA>>truth (in category 'numeric') -----
- ----- Method: MCMockClassA>>truth (in category 'boolean') -----
  truth
+ 	^ false!
- 	^ true!

Item was changed:
  ----- Method: MCMethodDefinitionTest>>testRevertOldMethod (in category 'testing') -----
  testRevertOldMethod
  	| definition changeRecord |
  	Object compile: 'yourself ^ self' classified: MCMockPackageInfo new methodCategoryPrefix.
  	definition := (MethodReference new
  									setStandardClass: Object 
  									methodSymbol:  #yourself) asMethodDefinition.
  	changeRecord := definition scanForPreviousVersion.
  	self assert: changeRecord notNil.
  	self assert: changeRecord category = 'accessing'.
  	changeRecord fileIn.!

Item was changed:
  ----- Method: MCMockClassA>>one (in category 'numeric') -----
  one
+ 	^ 1!
- 	^ 2!

Item was changed:
  ----- Method: MCMockClassA>>a (in category 'numeric') -----
  a
+ 	^ 'a1'!
- 	^ 'a2'!

Item was changed:
  ----- Method: MCClassDefinitionTest>>testCannotLoad (in category 'as yet unclassified') -----
  testCannotLoad
  	| d |
  	d :=  self mockClass: 'MCMockClassC' super: 'NotAnObject'.
+ 	self should: [d preloadOver: nil] raise: MCOrphanedNotification.
- 	self should: [d load] raise: MCOrphanedNotification.
  	self deny: (Smalltalk hasClassNamed: 'MCMockClassC').!

Item was changed:
  ----- Method: MCMethodDefinitionTest>>override (in category 'mocks') -----
  override ^ 1!

Item was changed:
  ----- Method: MCMockPackageInfo>>systemCategories (in category 'as yet unclassified') -----
  systemCategories
+ 	^ Array with: 'MonticelloMocks'!
- 	^ Array with: 'Monticello-Mocks'!

Item was changed:
  ----- Method: MCTestCase>>mockExtensionMethodCategory (in category 'mocks') -----
  mockExtensionMethodCategory
  	^ MCMockPackageInfo new methodCategoryPrefix.!

Item was removed:
- SystemOrganization addCategory: #'Monticello-Tests-Mocks'!
- SystemOrganization addCategory: #'Monticello-Tests'!