client-libraries/clojure/benchmarks/ruby.clj

   1 (ns benchmarks.ruby
   2   (:require redis))
   3
   4
   5 (dotimes [n 2]
   6   (redis/with-server
   7    {}
   8    (redis/set "foo" "The first line we sent to the server is some text")
   9    (time
  10     (dotimes [i 20000]
  11       (let [key (str "key" i)]
  12         (redis/set key "The first line we sent to the server is some text")
  13         (redis/get "foo"))))))
  14
  15
  16 ;(redis/with-server
  17 ; {}
  18 ; (redis/set "foo" "The first line we sent to the server is some text")
  19 ; (time
  20 ;  (dotimes [i 20000]
  21 ;    (let [key (str "push_trim" i)]
  22 ;      (redis/lpush key i)
  23 ;      (redis/ltrim key 0 30)))))
  24
  25
  26