Pyramid/src/Pyramid-Tests/PyramidNumberArrayInputPresenterTest.class.st at 6233d936dae7a60140b62fd5e6646cdf6f882876 · OpenSmock/Pyramid · 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
Class {
	#name : #PyramidNumberArrayInputPresenterTest,
	#superclass : #TestCase,
	#traits : 'TPyramidInputPresenterTest',
	#classTraits : 'TPyramidInputPresenterTest classTrait',
	#category : #'Pyramid-Tests-cases-specs-custom'
}

{ #category : #accessing }
PyramidNumberArrayInputPresenterTest >> dummyValues [

	^ {
	#() -> PyramidUnknowState new.
		 #(1).
		#(2 2).
		#(3 3 3) -> PyramidUnknowState new.
		#(4 4 4 4).
		#(5 5 5 5 5) -> PyramidUnknowState new. }
]

{ #category : #accessing }
PyramidNumberArrayInputPresenterTest >> expectedEmptyValue [

	^ PyramidUnknowState new
]

{ #category : #accessing }
PyramidNumberArrayInputPresenterTest >> expectedMixedValues [

	^ PyramidUnknowState new
]

{ #category : #tests }
PyramidNumberArrayInputPresenterTest >> makeNewInput [

	^ PyramidNumberArrayInputPresenter new
]

{ #category : #'as yet unclassified' }
PyramidNumberArrayInputPresenterTest >> triggerValueChangedOf: anInput [

	anInput inputArray ensureInternalActions decoratedGroup entries do: [
		:bind | bind execute ]
]

{ #category : #'as yet unclassified' }
PyramidNumberArrayInputPresenterTest >> triggerValueChangedOfForPharo12AndBelow: anInput [

	anInput inputArray contextKeyBindings keymaps do: [ :bind |
		bind action value ]
]