mirror of
https://github.com/penpot/penpot.git
synced 2026-09-19 02:16:14 +00:00
46 lines
2.0 KiB
Clojure
46 lines
2.0 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 frontend-tests.router-test
|
|
(:require
|
|
[app.main.router :as rt]
|
|
[cljs.test :as t :include-macros true]))
|
|
|
|
(def ^:private test-routes
|
|
#{:auth-login :auth-register :dashboard-recent :workspace})
|
|
|
|
(t/deftest resolve-target-screen-wins-over-forwarded-params
|
|
;; Screens forward the current query params when navigating (e.g.
|
|
;; login passes its params to the register link); the stale screen
|
|
;; they carry must never override the destination.
|
|
(t/is (= "?screen=auth-register&foo=1"
|
|
(rt/resolve test-routes :auth-register {:screen "auth-login"
|
|
:foo "1"}))))
|
|
|
|
(t/deftest resolve-builds-screen-token
|
|
(t/is (= "?screen=dashboard-recent&team-id=team-1"
|
|
(rt/resolve test-routes :dashboard-recent {:team-id "team-1"})))
|
|
(t/is (= "?screen=auth-login"
|
|
(rt/resolve test-routes :auth-login)))
|
|
(t/is (nil? (rt/resolve test-routes :unknown-screen {:team-id "team-1"}))))
|
|
|
|
(t/deftest resolve-uri-builds-absolute-url
|
|
(let [uri (rt/resolve-uri test-routes :workspace {:file-id "file-1"})]
|
|
(t/is (string? uri))
|
|
(t/is (re-find #"\?screen=workspace&file-id=file-1$" uri))))
|
|
|
|
(t/deftest match-resolves-screen-token
|
|
(let [match (rt/match test-routes "?screen=workspace&team-id=team-1&file-id=file-1")]
|
|
(t/is (= :workspace (get-in match [:data :name])))
|
|
(t/is (= "team-1" (get-in match [:params :query :team-id])))
|
|
(t/is (= "file-1" (get-in match [:query-params :file-id])))
|
|
(t/is (= {} (get-in match [:params :path])))))
|
|
|
|
(t/deftest match-rejects-missing-or-unknown-screen
|
|
(t/is (nil? (rt/match test-routes "")))
|
|
(t/is (nil? (rt/match test-routes "?team-id=team-1")))
|
|
(t/is (nil? (rt/match test-routes "?screen=nope&team-id=team-1"))))
|