1 ;; Copyright (c) 2009, 2010 Vitaly Mayatskikh <v.mayatskih@gmail.com>
3 ;; This file is part of CL-ZMQ.
5 ;; Vitaly Mayatskikh grants you the rights to distribute
6 ;; and use this software as governed by the terms
7 ;; of the Lisp Lesser GNU Public License
8 ;; (http://opensource.franz.com/preamble.html),
11 (asdf:oos
'asdf
:load-op
:zeromq
)
13 (defpackage :zeromq-test
16 (in-package :zeromq-test
)
21 (defvar *elapsed
* nil
)
22 (defvar *latency
* nil
)
24 (zmq::with-context
(ctx 1)
25 (zmq:with-socket
(s ctx zmq
:req
)
26 (zmq:connect s
*address
*)
27 (let ((msg (make-instance 'zmq
:msg
:size
*message-size
*)))
30 (dotimes (i *roundtrip-count
*)
35 (setf *latency
* (/ *elapsed
* (* 2 *roundtrip-count
*)))
37 (format t
"message size: ~d [B]~%" *message-size
*)
38 (format t
"roundtrip count: ~d~%" *roundtrip-count
*)
39 (format t
"average latency: ~f [us]~%" *latency
*)