[Pkg] The Trunk: Tests-topa.302.mcz

[commits at source.squeak.org]

Tobias Pape uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-topa.302.mcz

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

Name: Tests-topa.302
Author: topa
Time: 5 September 2014, 9:07:38.083 pm
UUID: 34ca6d97-e886-4970-a84e-84b544ce5526
Ancestors: Tests-fbs.301

Adapt tests to Monticelo-topa.599

=============== Diff against Tests-fbs.301 ===============

Item was changed:
  ----- Method: MCWorkingCopyTest>>assertNameWhenSavingTo:is: (in category 'asserting') -----
  assertNameWhenSavingTo: aRepository is: aString
  	| name |
  	name := nil.
  	[aRepository storeVersion: workingCopy newVersion]
  		on: MCVersionNameAndMessageRequest
+ 		do: [:n | 
+ 			n patchBlock value.
+ 			name := n suggestedName. n resume: (Array with: name with: '' with: Set new)].
- 		do: [:n | name := n suggestedName. n resume: (Array with: name with: '')].
  	self assert: name = aString!

Item was changed:
  ----- Method: MCWorkingCopyTest>>assertNumberWhenSavingTo:is: (in category 'asserting') -----
  assertNumberWhenSavingTo: aRepository is: aNumber
  	| name |
  	name := nil.
  	[aRepository storeVersion: workingCopy newVersion]
  		on: MCVersionNameAndMessageRequest
+ 		do: [:n | 
+ 			n patchBlock value.
+ 			name := n suggestedName. n resume: (Array with: name with: '' with: Set new)].
- 		do: [:n | name := n suggestedName. n resume: (Array with: name with: '')].
  	self assert: name = (self packageName, '-', Utilities authorInitials, '.', aNumber asString)!

Item was changed:
  ----- Method: MCWorkingCopyTest>>snapshot (in category 'actions') -----
  snapshot
  	| version |
  	[version := workingCopy newVersion]
  		on: MCVersionNameAndMessageRequest
+ 		do: [:n | 
+ 			n patchBlock value.
+ 			n resume: (Array with: n suggestedName with: '' with: Set new)].
- 		do: [:n | n resume: (Array with: n suggestedName with: '')].
  	versions at: version info put: version.
  	^ version!