diff --git a/src/clojure/langohr/http.clj b/src/clojure/langohr/http.clj index da5377a..1d24aac 100644 --- a/src/clojure/langohr/http.clj +++ b/src/clojure/langohr/http.clj @@ -224,10 +224,15 @@ [^String vhost] (get-and-decode-json (url-with-path (format "/api/vhosts/%s" (URLEncoder/encode vhost))))) -(defn declare-vhost +(defn add-vhost [^String vhost] (put (url-with-path (format "api/vhosts/%s" (URLEncoder/encode vhost))) {:body {:name vhost}})) +(defn ^{:deprecated true} declare-vhost + "Deprecated. Use add-vhost." + [^String vhost] + (add-vhost vhost)) + (defn delete-vhost [^String vhost] (delete (url-with-path (format "/api/vhosts/%s" (URLEncoder/encode vhost))))) diff --git a/test/langohr/test/http_api_test.clj b/test/langohr/test/http_api_test.clj index fc00461..fdc367a 100644 --- a/test/langohr/test/http_api_test.clj +++ b/test/langohr/test/http_api_test.clj @@ -143,7 +143,7 @@ (deftest ^{:http true} test-vhost-manipulations (let [vhost "new-vhost"] (is (not (hc/vhost-exists? vhost))) - (hc/declare-vhost vhost) + (hc/add-vhost vhost) (is (hc/vhost-exists? vhost)) (hc/delete-vhost vhost)))