PythonBridge/src/PythonBridge-Pharo/PBMsgPackPharoBrokerTest.class.st at 2b47fedccac17664cb2ed24f5686f2071f6851db · ObjectProfile/PythonBridge · 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
Class {
	#name : #PBMsgPackPharoBrokerTest,
	#superclass : #PBMessageBrokerTest,
	#instVars : [
		'stubStream',
		'stubThread'
	],
	#category : #'PythonBridge-Pharo-MessageBroker'
}

{ #category : #utils }
PBMsgPackPharoBrokerTest >> answer [
	"MsgPack socket broker does not answer empty messages."
]

{ #category : #utils }
PBMsgPackPharoBrokerTest >> answer: dict [
	self primSendMessageToBroker: dict
]

{ #category : #utils }
PBMsgPackPharoBrokerTest >> assertCommunicationError: aBlock [
	"Message pack does not raise CommunicationError on exceptions at the other side"
]

{ #category : #running }
PBMsgPackPharoBrokerTest >> buildAndStartStubServer [
	stubStream := PBMsgPackUtils openConnectionToHost: #[ 127 0 0 1 ] port: broker port.
	stubStream := PBMsgPackSocketStream on: stubStream.
	stubThread := [
		[ true ] whileTrue: [
			self stubPrimHandle: stubStream next ] ] forkAt: Processor lowIOPriority.

]

{ #category : #utils }
PBMsgPackPharoBrokerTest >> errorResponse [
	^ ZnResponse serverError: 'ERROR'
]

{ #category : #hooks }
PBMsgPackPharoBrokerTest >> messageBrokerClass [
	^ PBMsgPackPharoBroker
]

{ #category : #private }
PBMsgPackPharoBrokerTest >> primSendMessageToBroker: dict [
	stubStream nextPut: dict
]

{ #category : #hooks }
PBMsgPackPharoBrokerTest >> sendMessageToBroker: dict [
	self sendMessageToBroker: dict answerBlock: [ :ans | self assert: false ]
]

{ #category : #hooks }
PBMsgPackPharoBrokerTest >> sendMessageToBroker: dict answerBlock: aBlock [
	self setHandler: aBlock.
	self primSendMessageToBroker: dict.
	self sleepAWhile.
]

{ #category : #utils }
PBMsgPackPharoBrokerTest >> sendMessageToBroker: dict answerEquals: ansDict [
	| flag |
	flag := false.
	self sendMessageToBroker: dict answerBlock: [ :anAssoc |
		flag := true.
		self assert: anAssoc value equals: ansDict ].
	self sleepAWhile.
	self assert: flag
]

{ #category : #utils }
PBMsgPackPharoBrokerTest >> sleepAWhile [
	(Delay forMilliseconds: 50) wait
]

{ #category : #running }
PBMsgPackPharoBrokerTest >> stopStubServer [
	stubThread ifNotNil: [ stubThread terminate ].
	stubStream ifNotNil: [ stubStream close ]
]

{ #category : #private }
PBMsgPackPharoBrokerTest >> stubPrimHandle: msgDict [
	handlerBlock value: (msgDict at: #type) -> msgDict
]