Merge pull request #42 from mattiasholmqvist/master

Added in-group? predicate to compute2.clj

compute/src/main/clojure/org/jclouds/compute2.clj

@@ -278,6 +278,11 @@ Here's an example of creating and running a small linux node in the group webser
   [#^NodeMetadata node]
   (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
   "Returns the node's public ips"
   [#^NodeMetadata node]

compute/src/test/clojure/org/jclouds/compute2_test.clj

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