There is almost no difference between these two tests, which are 20 LOC each.  Can we factor out some common parts, like the setup, and maybe even the let?

eg 
```clj
(defn- get-cv-env []
  {:org (uniqueify baseorg) ... })

;; then in test
(fn []
 (let [{:keys [org pub-names cv1 ...] (get-cv-env)]
   [:permissions ... 
    :setup ...
    ...]))
```