(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)))