From 14f372be3b1669787ba08b4f72f0bc120c0a9f4e Mon Sep 17 00:00:00 2001 From: Mattias Holmqvist Date: Wed, 11 May 2011 00:42:32 +0200 Subject: [PATCH] Fixing clean-stub-fixture to call destroy-node correctly --- compute/src/test/clojure/org/jclouds/compute2_test.clj | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compute/src/test/clojure/org/jclouds/compute2_test.clj b/compute/src/test/clojure/org/jclouds/compute2_test.clj index d173b481ac..952ac097e3 100644 --- a/compute/src/test/clojure/org/jclouds/compute2_test.clj +++ b/compute/src/test/clojure/org/jclouds/compute2_test.clj @@ -34,16 +34,16 @@ list, Alan Dipert and MeikelBrandmeyer." (deftest os-families-test (is (some #{"centos"} (map str (os-families))))) +(def *compute* (compute-service "stub" "" "")) + (defn clean-stub-fixture "This should allow basic tests to easily be run with another service." [compute-service] (fn [f] (doseq [node (nodes compute-service)] - (destroy-node (.getId node))) + (destroy-node *compute* (.getId node))) (f))) -(def *compute* (compute-service "stub" "" "")) - (use-fixtures :each (clean-stub-fixture *compute*)) (deftest compute-service?-test