   (is (= #{} (db/find-usernames-by-email "unknown@xxx.com")))
   (is (= #{"jack"} (db/find-usernames-by-email "jack@sixsq.com")))
   (is (= #{"joe" "joe-alias"} (db/find-usernames-by-email "joe@sixsq.com"))))
+
 
 (deftest test-users-by-authn-skips-deleted
   (th/add-user-for-test! {:username     "joe-slipstream"


(use-fixtures :each ltu/with-test-server-fixture)

(deftest test-user-creation
  (is (= "st" (db/create-user! {:authn-method "github"
                                :authn-login  "st"
                                :email        "st@s.com"
                                :roles        "alpha-role, beta-role"
                                :firstname    "first"
                                :lastname     "last"
                                :organization "myorg"})))



  (let [uuid (u/random-uuid)]
    (is (= uuid (db/create-user! {:authn-method   "github"
                                  :authn-login    uuid

  (is (= "joe_11" (db/name-no-collision "joe_10" ["joe_10"])))
  (is (= "joe_1_2_4" (db/name-no-collision "joe_1_2_3" ["joe_1_2_3"]))))


(deftest test-users-by-email-skips-deleted
  (th/add-user-for-test! {:username     "jack"
                          :password     "123456"
