                       (th/test-translations "index page" (constantly page)))))
 
        (fact "when password is too long"
-             (let [long-password (apply str (repeat 255 "x"))
+             (let [long-password (string-of-length 255)
                    errors {:sign-in-password :too-long}
                    params {:sign-in-password long-password}
                    page (-> (th/create-request {} errors params) index)]

            [stonecutter.test.view.test-helpers :as th]
            [stonecutter.view.index :refer [index]]))


(facts "about index page"
       (let [page (-> (th/create-request) index)]

                      (th/test-translations "index page" (constantly page)))))

       (facts "when email is too long"
              (let [long-email-address (string-of-length 255)
                    errors {:sign-in-email :too-long}
                    params {:sign-in-email long-email-address}
                    page (-> (th/create-request {} errors params) index)]
