                     (api/list-artifacts g)
                     result)]
     (is (= ["a" "b"]
-           (sort (mapv :name members))))))
+           (sort (mapv t/thing->name members))))))
 
 (deftest list-versions-test
   (let [a        (-> (t/->Group "org.foo")

                      (api/list-platforms p)
                      result)]
    (is (= ["clj" "cljclr" "cljs"]
           (sort (map :name platforms))))))

(deftest list-ns-test
  (let [v   (-> (t/->Group "org.foo")

                 (api/list-defs ns)
                 result)]
    (is (= ["foo" "qux"]
           (sort (map t/thing->name defs))))))

;; Reading/Writing tests
;;------------------------------------------------------------------------------
