                 (api/list-namespaces v)
                 result)]
     (is (= ["a.core" "a.impl.clj"]
-           (sort (mapv :name nss))))))
+           (sort (mapv t/thing->name nss))))))
 
 (deftest list-prior-versions-test
   (let [ns   (-> (t/->Group "org.foo")

                     (api/list-versions a)
                     result)]
    (is (= ["0.1.0" "0.1.0-SNAPSHOT" "1.0.0" "1.0.1" "1.1.0"]
           (sort (mapv :name versions))))))

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

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

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