Fixed one more issue with clean-stub-fixture

This commit is contained in:
Mattias Holmqvist 2011-05-11 01:47:19 +02:00
parent 6c4294ed1c
commit f8b4f3e23e

View File

@ -41,7 +41,7 @@ list, Alan Dipert and MeikelBrandmeyer."
[compute-service] [compute-service]
(fn [f] (fn [f]
(doseq [node (nodes compute-service)] (doseq [node (nodes compute-service)]
(destroy-node *compute* (.getId node))) (destroy-node compute-service (.getId node)))
(f))) (f)))
(use-fixtures :each (clean-stub-fixture *compute*)) (use-fixtures :each (clean-stub-fixture *compute*))