client-libraries/clojure/benchmarks/ruby.clj

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