diff --git a/README.markdown b/README.markdown index f72b448..d2e1afe 100644 --- a/README.markdown +++ b/README.markdown @@ -25,12 +25,12 @@ For example: Two examples are provided: ; start consumer - lein run -m beanstalk.examples.consumer + lein run -m com.github.drsnyder.beanstalk.examples.consumer ; send some data - lein run -m beanstalk.examples.producer -m "hello" -n 5 + lein run -m com.github.drsnyder.beanstalk.examples.producer -m "hello" -n 5 ; send shutdown - lein run -m beanstalk.examples.producer -m "exit" + lein run -m com.github.drsnyder.beanstalk.examples.producer -m "exit" ## License diff --git a/project.clj b/project.clj index 9206abf..b1cdb61 100644 --- a/project.clj +++ b/project.clj @@ -1,4 +1,4 @@ -(defproject beanstalk "1.0.0-SNAPSHOT" +(defproject com.github.drsnyder/beanstalk "1.0.0-SNAPSHOT" :description "FIXME: write" :dependencies [[org.clojure/clojure "1.2.0"] [org.clojure/clojure-contrib "1.2.0"]] diff --git a/src/beanstalk/core.clj b/src/com/github/drsnyder/beanstalk.clj similarity index 99% rename from src/beanstalk/core.clj rename to src/com/github/drsnyder/beanstalk.clj index f09d1fa..0998627 100644 --- a/src/beanstalk/core.clj +++ b/src/com/github/drsnyder/beanstalk.clj @@ -1,4 +1,4 @@ -(ns beanstalk.core +(ns com.github.drsnyder.beanstalk (:refer-clojure :exclude [read peek use]) (:use [clojure.contrib.condition :only [raise]] [clojure.string :only [split lower-case]] diff --git a/src/beanstalk/examples/consumer.clj b/src/com/github/drsnyder/beanstalk/examples/consumer.clj similarity index 82% rename from src/beanstalk/examples/consumer.clj rename to src/com/github/drsnyder/beanstalk/examples/consumer.clj index b49b60e..7ac358e 100644 --- a/src/beanstalk/examples/consumer.clj +++ b/src/com/github/drsnyder/beanstalk/examples/consumer.clj @@ -1,16 +1,16 @@ -(ns beanstalk.examples.consumer +(ns com.github.drsnyder.beanstalk.examples.consumer (:gen-class) (:refer-clojure :exclude [read peek use]) (:use clojure.contrib.command-line) - (:use beanstalk.core)) + (:use com.github.drsnyder.beanstalk)) ; .clojure ; ./src:./classes:./lib:beanstalk-1.0.0-SNAPSHOT.jar -; (compile 'beanstalk.examples.consumer) -; java -cp ./classes/:./lib/clojure-1.2.0.jar:./lib/clojure-contrib-1.2.0.jar beanstalk.examples.consumer +; (compile 'com.github.drsnyder.beanstalk.examples.consumer) +; java -cp ./classes/:./lib/clojure-1.2.0.jar:./lib/clojure-contrib-1.2.0.jar com.github.drsnyder.beanstalk.examples.consumer ; ; simpler: -; lein run -m beanstalk.examples.consumer +; lein run -m com.github.drsnyder.beanstalk.examples.consumer (defn -main [& args] (with-command-line args diff --git a/src/beanstalk/examples/producer.clj b/src/com/github/drsnyder/beanstalk/examples/producer.clj similarity index 81% rename from src/beanstalk/examples/producer.clj rename to src/com/github/drsnyder/beanstalk/examples/producer.clj index ec1bb93..d4530d5 100644 --- a/src/beanstalk/examples/producer.clj +++ b/src/com/github/drsnyder/beanstalk/examples/producer.clj @@ -1,16 +1,16 @@ -(ns beanstalk.examples.producer +(ns com.github.drsnyder.beanstalk.examples.producer (:gen-class) (:refer-clojure :exclude [read peek use]) (:use clojure.contrib.command-line) - (:use beanstalk.core)) + (:use com.github.drsnyder.beanstalk)) ; .clojure ; ./src:./classes:./lib:beanstalk-1.0.0-SNAPSHOT.jar -; (compile 'beanstalk.examples.producer) -; java -cp ./classes/:./lib/clojure-1.2.0.jar:./lib/clojure-contrib-1.2.0.jar beanstalk.examples.producer +; (compile 'com.github.drsnyder.beanstalk.examples.producer) +; java -cp ./classes/:./lib/clojure-1.2.0.jar:./lib/clojure-contrib-1.2.0.jar com.github.drsnyder.beanstalk.examples.producer ; ; simpler: -; lein run -m beanstalk.examples.producer +; lein run -m com.github.drsnyder.beanstalk.examples.producer (defn -main [& args] (with-command-line args diff --git a/test/beanstalk/core_test.clj b/test/com/github/drsnyder/beanstalk_test.clj similarity index 90% rename from test/beanstalk/core_test.clj rename to test/com/github/drsnyder/beanstalk_test.clj index 050ae01..bd7d0ac 100644 --- a/test/beanstalk/core_test.clj +++ b/test/com/github/drsnyder/beanstalk_test.clj @@ -1,16 +1,17 @@ -(ns beanstalk.core-test +(ns com.github.drsnyder.beanstalk-test (:refer-clojure :exclude [read peek use]) - (:use beanstalk.core clojure.test)) + (:use [com.github.drsnyder.beanstalk :as beanstalk] + clojure.test)) ; tracing: sudo tcpdump -i lo0 -tnNqA tcp port 11300 (deftest test-beanstalk (let [b (new-beanstalk)] (is (and (not (nil? b)) - (instance? beanstalk.core.Beanstalk b))))) + (instance? com.github.drsnyder.beanstalk.Beanstalk b))))) (deftest test-stats - (binding [ beanstalk.core/*debug* true ] + (binding [ beanstalk/*debug* true ] (let [b (new-beanstalk) result (.stats b)] (is (not (nil? (:payload result)))) @@ -18,7 +19,7 @@ (deftest test-put - (binding [ beanstalk.core/*debug* true ] + (binding [ beanstalk/*debug* true ] (let [b (new-beanstalk) result (.put b 0 0 10 5 "hello")] (println (str "result => " result)) @@ -30,7 +31,7 @@ (deftest test-use - (binding [ beanstalk.core/*debug* true ] + (binding [ beanstalk/*debug* true ] (let [b (new-beanstalk) result (.use b "test-tube")] (println (str "result => " result)) @@ -39,7 +40,7 @@ (deftest test-reserve - (binding [ beanstalk.core/*debug* true ] + (binding [ beanstalk/*debug* true ] (let [p (new-beanstalk) ; producer c (new-beanstalk) ; consumer use-p (.use p "test-tube") @@ -58,7 +59,7 @@ ;; make these tests more stable-- use a random tube? (deftest test-reserve-with-timeout - (binding [ beanstalk.core/*debug* true ] + (binding [ beanstalk/*debug* true ] (let [data "hello-reserve-with-timeout" p (new-beanstalk) c (new-beanstalk) @@ -76,7 +77,7 @@ (deftest test-release - (binding [ beanstalk.core/*debug* true ] + (binding [ beanstalk/*debug* true ] (let [p (new-beanstalk) ; producer c (new-beanstalk) ; consumer use-p (.use p "test-tube") @@ -94,7 +95,7 @@ (is (= true (.delete c (:id put-p))))))) (deftest test-bury - (binding [ beanstalk.core/*debug* true ] + (binding [ beanstalk/*debug* true ] (let [p (new-beanstalk) ; producer c (new-beanstalk) ; consumer use-p (.use p "test-tube") @@ -111,7 +112,7 @@ (is (= true (.delete c (:id put-p))))))) (deftest test-touch - (binding [ beanstalk.core/*debug* true ] + (binding [ beanstalk/*debug* true ] (let [p (new-beanstalk) ; producer c (new-beanstalk) ; consumer use-p (.use p "test-tube") @@ -128,7 +129,7 @@ (is (= true (.delete c (:id put-p))))))) (deftest test-ignore - (binding [ beanstalk.core/*debug* true ] + (binding [ beanstalk/*debug* true ] (let [c (new-beanstalk) watch-c (.watch c "test-tube") ignore-c (.ignore c "default")] @@ -136,7 +137,7 @@ (is (> (:count ignore-c) 0))))) (deftest test-peek - (binding [ beanstalk.core/*debug* true ] + (binding [ beanstalk/*debug* true ] (let [p (new-beanstalk) ; producer c (new-beanstalk) ; consumer data (str "hello " (rand-int 100))