Browse files

implement the REMOTE-THR benchmark

  • Loading branch information...
1 parent d3ce833 commit ab1f0b9e76c046961ea481571fad0a8159861919 @galdor galdor committed Oct 2, 2011
Showing with 9 additions and 0 deletions.
  1. +9 −0 examples/official-benchmarks.lisp
View
9 examples/official-benchmarks.lisp
@@ -22,3 +22,12 @@
(format t "message count: ~A ~%" message-count)
(format t "mean throughput ~A [msg/s]~%" (round throughput))
(format t "mean throughput ~A [Mb/s]~%" (round megabits))))))))
+
+(defun remote-thr (address message-size message-count)
+ (zmq:with-context (context 1)
+ (zmq:with-socket (socket context :pub)
+ (zmq:connect socket address)
+ (do ((i 0 (1+ i)))
+ ((= i message-count))
+ (zmq:with-msg-init-size (message message-size)
+ (zmq:send socket message))))))

0 comments on commit ab1f0b9

Please sign in to comment.