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

Merge pull request #42 from mattiasholmqvist/master 

Added in-group? predicate to compute2.clj
This commit is contained in:
Adrian Cole 2011-05-27 09:09:29 -07:00
parent eac4240de9 94c8f3707f
commit a3a97d02b8
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compute/src/main/clojure/org/jclouds/compute2.clj
View File

@ -278,6 +278,11 @@ Here's an example of creating and running a small linux node in the group webser
[#^NodeMetadata node] [#^NodeMetadata node]
(state-predicate node UNRECOGNIZED)) (state-predicate node UNRECOGNIZED))
(defn in-group?
"Returns a predicate fn which returns true if the node is in the given group, false otherwise"
[group]
#(= (.getGroup %) group))
(defn public-ips (defn public-ips
"Returns the node's public ips" "Returns the node's public ips"
[#^NodeMetadata node] [#^NodeMetadata node]

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

@ -63,8 +63,6 @@ list, Alan Dipert and MeikelBrandmeyer."
(is (compute-service? *compute*)) (is (compute-service? *compute*))
(is (compute-service? (compute-service (compute-context *compute*))))) (is (compute-service? (compute-service (compute-context *compute*)))))
(defn in-group? [group] #(= (.getGroup %) group))
(deftest nodes-test (deftest nodes-test
(is (create-node *compute* "fred" (build-template *compute* {} ))) (is (create-node *compute* "fred" (build-template *compute* {} )))
(is (= 1 (count (nodes-in-group *compute* "fred")))) (is (= 1 (count (nodes-in-group *compute* "fred"))))