    :name     nil
    :url      nil})
 
-(background (before :facts (user-store/reset-user-store!)))
+(background (before :facts (cl-user/reset-user-store!)))
 
 (fact "user can sign in with valid credentials and is redirected to profile, with user and access_token added to session"
       (-> (create-request :post "/sign-in" sign-in-user-params)

      (provided
        (v/validate-registration register-user-params s/is-duplicate-user?) => {}
        (s/store-user! email password) => ...user...
        (token/create-token nil ...user...) => {:token ...token...}))

(fact "signed-in? returns true only when user and access_token are in the session"
      (tabular

            :session) => empty?
        (provided
          (s/authenticate-and-retrieve-user email password) => ...user...
          (cl-client/fetch-client "client-id") => ...client...
          (cl-token/create-token ...client... ...user...) => {:token ...token...})))

(fact "if user has client id but no return-to in session, throws an exception"
      (-> (create-request :post "/sign-in" sign-in-user-params)
