Extra assertions for SUnit
## SUnit extra assertions These are assertions (or matchers) for SUnit written for cuis Smalltalk inspired by some of the marchers of RSpec. ## How to use it Just import it, these matchers extends TestCase. ## Current list of assertions ### An action changes something `self assert: [ aCollection add: 1 ] changes: [ aCollection size ]` Also the opposite is included: `self assert: [ aCollection sum ] doesNotChange: [ aCollection size ]` And the parametric versions: `self assert: [ aCollection add: 1; add: 2 ] changes: [ aCollection size ] by: 2` ``` aCollection := OrderedCollection with: 1. self assert: [ aCollection add: 2 ] changes: [ aCollection size ] from: 1 to: 2 ``` ### A float number is equal to another float number with a precision value `self assert: (0.3) isNearTo: (0.1 + 0.2)` `self assert: originalNumber isNearTo: newValue withPrecision: precision` Also you have the negative assertions: `self assert: originalNumber isNotNearTo: newValue` `self assert: originalNumber isNotNearTo: newValue withPrecision: precision` ### A collection includes an element `self assert: #() includes: 1` Will raise a nice error message