user_registration_test.clj

(deftest register-test
  (let [email    "[email protected]"
        response (request :post "/register" {:email email})]
    (testing "http response"
      (testing "should return 201 status code" 
        (is (= 201 (:status response))))
      (testing "should return the created user in response body"
        (is (= email  (-> response :body :email)))
        (is (integer? (-> response :body :id))))
      (testing "should not return the confirmation token in the response body"
        (is (not (contains? (:body response) :confirmation_token)))))
    (testing "should create the user in the database"
      (let [created-user (user/find-by-email email)]
        (is (not (nil? created-user)))
        (testing "should have a confirmation token"
          (is (not (nil? (:confirmation_token created-user))))))) 
    (testing "should send a confirmation email"
      (is (confirmation-sent? email)))))