 (def circle-with-subcircle-with-acc
   (g/add-role-accountability circle-with-subcircle subcircle-name
                              accountability))
+
+(def circle-with-subcircle-with-policy
+  (g/add-role-policy circle-with-subcircle subcircle-name policy policy-text))
 
 (describe "using role operations on a circle is OK"
   (it "can change the purpose of a circle"

                        assoc :accountabilities #{accountability})
      circle-with-subcircle-with-acc))

  (it "can remove an accountability from a circle"
    (should= circle-with-subcircle
      (g/remove-role-accountability circle-with-subcircle-with-acc

(def domain "domain")
(def accountability "acc")
(def alternate-circle-name "something else")
(def policy "Policy1")
(def policy-text "Policy1 Text")

(def circle-with-subcircle-with-domain
  (g/add-role-domain circle-with-subcircle subcircle-name domain))
