mutalk/src/MuTalk-Tests/MTMessageSendArguments1stNullifierOperatorTest.class.st at 654931a4417bc48be18d7eee9a180eaac0b82791 · DurieuxPol/mutalk · GitHub

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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
Class {
	#name : 'MTMessageSendArguments1stNullifierOperatorTest',
	#superclass : 'MTPredicateBasedMutantOperatorTest',
	#category : 'MuTalk-Tests',
	#package : 'MuTalk-Tests'
}

{ #category : 'accessing' }
MTMessageSendArguments1stNullifierOperatorTest >> methodWithNoSenders [

	^ self operatorDescription
]

{ #category : 'accessing' }
MTMessageSendArguments1stNullifierOperatorTest >> methodWithOneSender [

	| o |
	o := OrderedCollection new.
	o at: 1 put: 2.
]

{ #category : 'accessing' }
MTMessageSendArguments1stNullifierOperatorTest >> methodWithOneSenderModified [

	| o |
	o := OrderedCollection new.
	o at: nil put: 2
]

{ #category : 'accessing' }
MTMessageSendArguments1stNullifierOperatorTest >> methodWithTwoSenders [

	| o |
	o := OrderedCollection new.
	o at: 1 put: 2.
	o at: 1
]

{ #category : 'accessing' }
MTMessageSendArguments1stNullifierOperatorTest >> methodWithTwoSendersModifiedFirst [

	| o |
	o := OrderedCollection new.
	o at: nil put: 2.
	o at: 1
]

{ #category : 'accessing' }
MTMessageSendArguments1stNullifierOperatorTest >> methodWithTwoSendersModifiedSecond [

	| o |
	o := OrderedCollection new.
	o at: 1 put: 2.
	o at: nil
]

{ #category : 'accessing' }
MTMessageSendArguments1stNullifierOperatorTest >> newNodeOneSender [

	^ RBMessageNode
		  receiver: (RBVariableNode named: #o)
		  selector: (RBSelectorNode value: #at:put:)
		  arguments: {
				  (RBLiteralValueNode value: nil).
				  (RBLiteralValueNode value: 2) }
]

{ #category : 'accessing' }
MTMessageSendArguments1stNullifierOperatorTest >> newNodeTwoSendersFirst [

	^ RBMessageNode
		  receiver: (RBVariableNode named: #o)
		  selector: (RBSelectorNode value: #at:put:)
		  arguments: {
				  (RBLiteralValueNode value: nil).
				  (RBLiteralValueNode value: 2) }
]

{ #category : 'accessing' }
MTMessageSendArguments1stNullifierOperatorTest >> newNodeTwoSendersSecond [

	^ RBMessageNode
		  receiver: (RBVariableNode named: #o)
		  selector: (RBSelectorNode value: #at:)
		  arguments: { (RBLiteralValueNode value: nil) }
]

{ #category : 'accessing' }
MTMessageSendArguments1stNullifierOperatorTest >> operator [

	^ MTMessageSendArguments1stNullifierOperator new
]