(ns benchmarks.ruby
  (:require redis))


(dotimes [n 2]
  (redis/with-server 
   {}
   (redis/set "foo" "The first line we sent to the server is some text")
   (time 
    (dotimes [i 20000]
      (let [key (str "key" i)]
        (redis/set key "The first line we sent to the server is some text")
        (redis/get "foo"))))))


;(redis/with-server 
; {}
; (redis/set "foo" "The first line we sent to the server is some text")
; (time 
;  (dotimes [i 20000]
;    (let [key (str "push_trim" i)]
;      (redis/lpush key i)
;      (redis/ltrim key 0 30)))))