mirror of
https://github.com/penpot/penpot.git
synced 2026-09-15 00:19:01 +00:00
77 lines
3.4 KiB
Clojure
77 lines
3.4 KiB
Clojure
;; This Source Code Form is subject to the terms of the Mozilla Public
|
|
;; License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
;; file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
;;
|
|
;; Copyright (c) KALEIDOS SUBSIDIARY SL
|
|
|
|
(ns backend-tests.rpc-demo-test
|
|
(:require
|
|
[app.auth :as auth]
|
|
[app.config :as cf]
|
|
[app.rpc.commands.profile :as profile]
|
|
[backend-tests.helpers :as th]
|
|
[clojure.test :as t]))
|
|
|
|
(t/use-fixtures :once th/state-init)
|
|
(t/use-fixtures :each th/database-reset)
|
|
|
|
;; Capture the real verifier before the shared test fixture replaces it.
|
|
(def verify-password* auth/verify-password)
|
|
|
|
(t/deftest weak-password-hash-verifies
|
|
(let [password "DemoPassword123!"
|
|
hashed (auth/derive-password-weak password)]
|
|
(t/is (:valid (verify-password* password hashed)))))
|
|
|
|
(t/deftest create-demo-profile-uses-unique-uuid-email
|
|
(with-redefs [cf/flags (conj cf/flags :demo-users)]
|
|
(let [first-result (th/command! {::th/type :create-demo-profile})
|
|
second-result (th/command! {::th/type :create-demo-profile})
|
|
first-profile (:result first-result)
|
|
second-profile (:result second-result)]
|
|
(t/is (nil? (:error first-result)))
|
|
(t/is (nil? (:error second-result)))
|
|
(t/is (re-matches #"demo-[0-9a-fA-F-]+@demo\.example\.com"
|
|
(:email first-profile)))
|
|
(t/is (not= (:email first-profile) (:email second-profile))))))
|
|
|
|
(t/deftest create-demo-profile-requires-feature-flag
|
|
(with-redefs [cf/flags (disj cf/flags :demo-users)]
|
|
(let [{:keys [error]} (th/command! {::th/type :create-demo-profile})]
|
|
(t/is (th/ex-of-code? error :demo-users-not-allowed)))))
|
|
|
|
(t/deftest create-demo-profile-keeps-onboarding-by-default
|
|
(with-redefs [cf/flags (conj cf/flags :demo-users)]
|
|
(let [{:keys [error result]} (th/command! {::th/type :create-demo-profile})]
|
|
(t/is (nil? error))
|
|
(let [saved (th/db-get :profile {:email (:email result)})
|
|
decoded (profile/decode-row saved)]
|
|
(t/is (nil? (get-in decoded [:props :onboarding-viewed])))))))
|
|
|
|
(t/deftest create-demo-profile-skips-onboarding-when-requested
|
|
(with-redefs [cf/flags (conj cf/flags :demo-users)]
|
|
(let [{:keys [error result]} (th/command! {::th/type :create-demo-profile
|
|
:skip-onboarding true})]
|
|
(t/is (nil? error))
|
|
(let [saved (th/db-get :profile {:email (:email result)})
|
|
decoded (profile/decode-row saved)]
|
|
(t/is (true? (get-in decoded [:props :onboarding-viewed])))
|
|
(t/is (= (:main cf/version)
|
|
(get-in decoded [:props :release-notes-viewed])))))))
|
|
|
|
(t/deftest create-demo-profile-explicit-false-keeps-onboarding
|
|
(with-redefs [cf/flags (conj cf/flags :demo-users)]
|
|
(let [{:keys [error result]} (th/command! {::th/type :create-demo-profile
|
|
:skip-onboarding false})]
|
|
(t/is (nil? error))
|
|
(let [saved (th/db-get :profile {:email (:email result)})
|
|
decoded (profile/decode-row saved)]
|
|
(t/is (nil? (get-in decoded [:props :onboarding-viewed])))))))
|
|
|
|
(t/deftest create-demo-profile-rejects-non-boolean-skip-onboarding
|
|
(with-redefs [cf/flags (conj cf/flags :demo-users)]
|
|
(let [{:keys [error]} (th/command! {::th/type :create-demo-profile
|
|
:skip-onboarding "yes"})]
|
|
(t/is (th/ex-of-type? error :validation))
|
|
(t/is (th/ex-of-code? error :params-validation)))))
|