Apache
/
jclouds
mirror of https://github.com/apache/jclouds.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fixing clean-stub-fixture to call destroy-node correctly

This commit is contained in:
Mattias Holmqvist 2011-05-11 00:42:32 +02:00
parent 4191df74a8
commit 14f372be3b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compute/src/test/clojure/org/jclouds/compute2_test.clj
View File

@ -34,16 +34,16 @@ list, Alan Dipert and MeikelBrandmeyer."
(deftest os-families-test (deftest os-families-test
(is (some #{"centos"} (map str (os-families))))) (is (some #{"centos"} (map str (os-families)))))
(def *compute* (compute-service "stub" "" ""))
(defn clean-stub-fixture (defn clean-stub-fixture
"This should allow basic tests to easily be run with another service." "This should allow basic tests to easily be run with another service."
[compute-service] [compute-service]
(fn [f] (fn [f]
(doseq [node (nodes compute-service)] (doseq [node (nodes compute-service)]
(destroy-node (.getId node))) (destroy-node *compute* (.getId node)))
(f))) (f)))
(def *compute* (compute-service "stub" "" ""))
(use-fixtures :each (clean-stub-fixture *compute*)) (use-fixtures :each (clean-stub-fixture *compute*))
(deftest compute-service?-test (deftest compute-service?-test