Skip to content
Browse files

Remove some old files

  • Loading branch information...
1 parent efb844b commit 399a45a8e2d68f8daecff327a24318ae051a0ad9 @ragnard committed Jun 11, 2009
Showing with 0 additions and 47 deletions.
  1. +0 −23 examples/benchmark.clj
  2. +0 −24 src/demo.clj
View
23 examples/benchmark.clj
@@ -1,23 +0,0 @@
-(ns benchmark
- (:require redis))
-
-;;(when-not *command-line-args*
-;; (System/exit 0))
-
-(def key-count 10000)
-
-(redis/with-server
- {:host "127.0.0.1" :port 6379 :db 15}
- (do
- (redis/flushdb)
- (println "Setting keys")
- (time
- (dotimes [i key-count]
- (redis/set (str "key-" i) "value")
- ))
- (time
- (dotimes [i key-count]
- (redis/get (str "key-" i))))
- (time
- (dotimes [i key-count]
- (redis/del (str "key-" i))))))
View
24 src/demo.clj
@@ -1,24 +0,0 @@
-(add-classpath "file:///Users/ragge/Projects/clojure/redis-clojure/redis-clojure.jar")
-
-(println (System/getProperty "java.class.path"))
-
-(ns demo
- (:require redis))
-
-
-
-(redis/with-server
- {:host "127.0.0.1" :port 6379 :db 0}
- (do
- (println "Sending ping")
- (println "Reply:" (redis/ping))
- (println "Server info:")
- (let [info (redis/info)]
- (dorun
- (map (fn [entry]
- (println (str "- "(first entry) ": " (last entry)))) info)))
- (println "Setting key 'foo' to 'bar'")
- (println "Reply:" (redis/set "foo" "bar"))
- (println "Getting value of key 'foo'")
- (println "Reply:" (redis/get "foo"))))
-

0 comments on commit 399a45a

Please sign in to comment.
Something went wrong with that request. Please try again.