+++ /dev/null
-;;
-;; Simple demo of redis-clojure functionality
-;;
-;; Make sure redis-clojure.jar or the contents of the src/ directory
-;; is on the classpath.
-;;
-;; Either:
-;; (add-classpath "file:///path/to/redis-clojure.jar"
-;; or:
-;; (add-classpath "file:///path/to/redis/src-dir/")
-;;
-
-(add-classpath "file:///Users/ragge/Projects/clojure/redis-clojure/redis-clojure.jar")
-
-(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"))))
-