Skip to content
Snippets Groups Projects
Commit 2f3c8eb2 authored by Allen Gilliland's avatar Allen Gilliland
Browse files

automatically set the admin-email setting to the email address of the first user during setup.

parent c3406465
No related branches found
No related tags found
No related merge requests found
......@@ -42,6 +42,7 @@
(set-user-password (:id new-user) password)
;; set a couple preferences
(setting/set :site-name site_name)
(setting/set :admin-email email)
(setting/set :anon-tracking-enabled (or allow_tracking "true"))
;; setup database (if needed)
(when (driver/is-engine? engine)
......
......@@ -4,6 +4,7 @@
[metabase.db :refer :all]
[metabase.http-client :as http]
(metabase.models [session :refer [Session]]
[setting :as setting]
[user :refer [User]])
[metabase.setup :as setup]
(metabase.test [data :refer :all]
......@@ -14,10 +15,11 @@
;; Check that we can create a new superuser via setup-token
(let [user-name (random-name)]
(expect-eval-actual-first
(match-$ (->> (sel :one User :email (str user-name "@metabase.com"))
(:id)
(sel :one Session :user_id))
[(match-$ (->> (sel :one User :email (str user-name "@metabase.com"))
(:id)
(sel :one Session :user_id))
{:id $id})
(str user-name "@metabase.com")]
(let [resp (http/client :post 200 "setup" {:token (setup/token-create)
:prefs {:site_name "Metabase Test"}
:user {:first_name user-name
......@@ -27,7 +29,7 @@
;; reset our setup token
(setup/token-create)
;; return api response
resp)))
[resp (setting/get :admin-email)])))
;; Test input validations
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment