client code for benchmarking slacker

core.clj

(ns slackerbench.core
  (:use [slacker.client])
  (:import [java.util.concurrent Executors TimeUnit])
  (:gen-class))

(defn -main [& args]

  (def host (first args))
  (def total-connections (Integer/valueOf (nth args 2)))
  (def scp (slackerc-pool host 2104
                          :max-active total-connections))

  (def thread-pool (Executors/newFixedThreadPool
                    (Integer/valueOf (nth args 3))))
  (def total-calls (Integer/valueOf (second args)))
  
  (defremote scp rand-ints)

  (time
   (do
     (.invokeAll thread-pool (take total-calls (repeat (fn [] (rand-ints 5)))))
     (.shutdown thread-pool)
     (.awaitTermination thread-pool -1 TimeUnit/SECONDS)))
  
  (System/exit 0))

Usage:
lein run host total-requests connections threads

Currently, it uses synchronous client so you are suggested to set connections == threads