[squeak-dev] The Trunk: SUnit-pre.144.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jun 20 09:43:35 UTC 2022

Patrick Rein uploaded a new version of SUnit to project The Trunk:

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

Name: SUnit-pre.144
Author: pre
Time: 20 June 2022, 11:43:29.010453 am
UUID: 4a255aa0-d41d-6b4e-9155-e0c22f75350a
Ancestors: SUnit-ct.143

Reverts changes of the internal usage of #targetClass and #classToBeTested in ClassTestCase to preserve the previous behavior in light of the feature freeze. ClassTestCases overriding #targetClass will now continue to work from 5.3 to 6.0.

=============== Diff against SUnit-ct.143 ===============

Item was changed:
  ----- Method: ClassTestCase>>testClassComment (in category 'tests') -----
+ 	self shouldnt: [self targetClass organization hasNoComment].!
- 	self shouldnt: [self classToBeTested organization hasNoComment].!

Item was changed:
  ----- Method: ClassTestCase>>testNew (in category 'tests') -----
  	"This should not throw an exception."
+ 	self targetClass new.!
- 	self classToBeTested new.!

Item was changed:
  ----- Method: ClassTestCase>>testUnCategorizedMethods (in category 'tests') -----
  	| categories slips uncategorisedMethods |
+ 	categories := self categoriesForClass: self targetClass.
- 	categories := self categoriesForClass: self classToBeTested.
  	slips := categories select: [:each | each = #'as yet unclassified'].
+ 	uncategorisedMethods := self targetClass organization listAtCategoryNamed: #'as yet unclassified'.
- 	uncategorisedMethods := self classToBeTested organization listAtCategoryNamed: #'as yet unclassified'.
+ 	self assert: slips isEmpty description: ('{1} has uncategorised methods: {2}' format: {self targetClass. (uncategorisedMethods collect: #printString) asCommaString}).!
- 	self assert: slips isEmpty description: ('{1} has uncategorised methods: {2}' format: {self classToBeTested. (uncategorisedMethods collect: #printString) asCommaString}).!

More information about the Squeak-dev mailing list