Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (def call-test '(sip-test [caller ["6001" "192.168.56.1" 42001 "192.168.56.101" 5060]
- called ["6002" "192.168.56.1" 42002 "192.168.56.101" 5060]]
- (test-comment "Registering client A.")
- (send-request caller {:type :register})
- (receive-event caller [:response :code] :ok [_]
- (clear-results caller)
- (send-request called {:type :register}))
- (test-comment "Registering client B.")
- (receive-event called [:response :code] :ok [_]
- (clear-results called)
- (send-request caller {:type :invite :header {:to {:user "6002"}}}))
- (test-comment "Sending INVITE from client A to B.")
- (receive-event caller [:response :code] :trying [_]
- (clear-results caller))
- (test-comment "Replying with RINGING from client B to A.")
- (receive-event called [:request] :invite [e]
- (clear-results caller)
- (send-response called e {:value :ringing}))
- (receive-event caller [:response :code] :ringing [_]
- (clear-results caller))
- (test-comment "Replying with OK from client B to A.")
- (receive-event called [:request] :invite [e]
- (send-response called e {:value :ok})
- (clear-results called))
- (receive-event caller [:response :code] :ok [e]
- (clear-results caller))
- (receive-event called [:request] :ack [_]
- (clear-results called))
- (timeout 5)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement