-
-
Notifications
You must be signed in to change notification settings - Fork 353
/
ObjectsAsMethodsTest.class.st
42 lines (34 loc) · 1.08 KB
/
ObjectsAsMethodsTest.class.st
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Class {
#name : #ObjectsAsMethodsTest,
#superclass : #TestCase,
#category : #'Tests-ObjectsAsMethods'
}
{ #category : #running }
ObjectsAsMethodsTest >> setUp [
super setUp.
SystemAnnouncer uniqueInstance suspendAllWhile: [
self class addSelector: #add:with: withMethod: ObjectsAsMethodsExample new.
self class addSelector: #answer42 withMethod: ObjectsAsMethodsExample new.
self class addSelector: #foo withMethod: AbstractObjectsAsMethod new ]
]
{ #category : #running }
ObjectsAsMethodsTest >> tearDown [
SystemAnnouncer uniqueInstance suspendAllWhile: [
self class removeSelector: #add:with:.
self class removeSelector: #answer42.
self class removeSelector: #foo ].
super tearDown
]
{ #category : #testing }
ObjectsAsMethodsTest >> testAddNumbers [
self assert: (self add: 3 with: 4) = 7.
self assert: (self perform: #add:with: withArguments: #(3 4)) = 7.
]
{ #category : #testing }
ObjectsAsMethodsTest >> testAnswer42 [
self assert: self answer42 = 42
]
{ #category : #testing }
ObjectsAsMethodsTest >> testDNU [
self should: [self foo] raise: MessageNotUnderstood
]