The Trunk: SUnit-ul.89.mcz

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)!