Levente Uzonyi uploaded a new version of SUnit to project The Trunk:
http://source.squeak.org/trunk/SUnit-ul.89.mcz

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

Name: SUnit-ul.89
Author: ul
Time: 21 September 2012, 3:50:20.289 am
UUID: 57658f3e-8679-3748-82a8-c805c9e0c42d
Ancestors: SUnit-ul.88

Accept a block (and strings as before) as description in TestCase >> #assert:description:. Instead of printing the objects all the time, only do that if the test fails in TestCase>>assert:equals: and TestCase>>assert:equals:description:.

=============== Diff against SUnit-ul.88 ===============

Item was changed:
  ----- Method: TestCase>>assert:description: (in category 'accessing') -----
+ assert: aBooleanOrBlock description: aStringOrBlock
+ 
- assert: aBooleanOrBlock description: aString
  	aBooleanOrBlock value ifFalse: [
+ 		| description |
+ 		description := aStringOrBlock value.
+ 		self logFailure: description.
+ 		TestResult failure signal: description ]
- 		self logFailure: aString.
- 		TestResult failure signal: aString]
  			!

Item was changed:
  ----- Method: TestCase>>assert:equals: (in category 'accessing') -----
  assert: expected equals: actual
+ 
+ 	^self
+ 		assert: expected = actual
+ 		description: [ self comparingStringBetween: expected and: actual ]
- 	^ self
- 		assert: (expected = actual)
- 		description: (self comparingStringBetween: expected and: actual)
  !

Item was changed:
  ----- Method: TestCase>>assert:equals:description: (in category 'accessing') -----
  assert: expected equals: actual description: aString
+ 
+ 	^self
+ 		assert: expected = actual
+ 		description: [ aString , ': ', (self comparingStringBetween: expected and: actual) ]!
- 	^ self
- 		assert: (expected = actual)
- 		description: aString , ': ', (self comparingStringBetween: expected and: actual)!