(fact "get a list of usernames and password (also test if usernames are unique)"
       (let [mails ["[email protected]" "[email protected]" "[email protected]" "[email protected]" "[email protected]"]
             pw "sv" role "free"]
         (for [mail mails] (user/create-user mail pw role))
         (let [found-ids (count (d/q '[:find ?c :where [?c :user/email]] (dbc)))]
           found-ids => 4
           )
         ))