 (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))

                        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 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"
