mirror of
https://github.com/penpot/penpot.git
synced 2026-10-29 14:00:37 +00:00
4635eaa467
The exception page compared the screen query param against literals
that never occur ("view", "dashboard"), so viewer and dashboard urls
of inaccessible files and teams fell through to the plain not-found
page instead of the request access modal. Classify the param with a
tested helper that recognizes "viewer" and every "dashboard-*" route.
Closes #11224
AI-assisted-by: muse-spark-1.3-contributor
55 lines
2.4 KiB
Clojure
55 lines
2.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 frontend-tests.ui.static-test
|
|
(:require
|
|
[app.main.ui.static :as static]
|
|
[cljs.test :as t :include-macros true]))
|
|
|
|
(t/deftest screen-kind-classifies-known-screens
|
|
;; Regression test (penpot/penpot#11224): the exception page shows the
|
|
;; REQUEST ACCESS modal only when it recognizes the screen the failing
|
|
;; URL belongs to. The `screen` query param carries the route name, so
|
|
;; the viewer is "viewer" and every team dashboard is "dashboard-*".
|
|
(t/testing "workspace"
|
|
(t/is (= :workspace (static/screen-kind {:screen "workspace"}))))
|
|
|
|
(t/testing "bare dashboard prefix also classifies"
|
|
;; No such route exists (routes are always "dashboard-*"), and the
|
|
;; modal still needs loaded team/file info, so this is harmless and
|
|
;; matches the prefix convention used in routes.cljs.
|
|
(t/is (= :dashboard (static/screen-kind {:screen "dashboard"}))))
|
|
|
|
(t/testing "viewer"
|
|
(t/is (= :viewer (static/screen-kind {:screen "viewer"}))))
|
|
|
|
(t/testing "dashboard variants"
|
|
(doseq [screen ["dashboard-recent"
|
|
"dashboard-members"
|
|
"dashboard-files"
|
|
"dashboard-settings"]]
|
|
(t/is (= :dashboard (static/screen-kind {:screen screen}))
|
|
(str "screen: " screen)))))
|
|
|
|
(t/deftest screen-kind-ignores-unknown-screens
|
|
;; Unknown, missing, or auth screens are not request-access candidates:
|
|
;; the exception page must keep showing the plain not-found page.
|
|
(doseq [params [nil
|
|
{}
|
|
{:screen "auth-login"}
|
|
{:screen "settings-profile"}
|
|
;; The "view" literal never was a real screen name; the
|
|
;; exception page compared against it before the fix.
|
|
{:screen "view"}]]
|
|
(t/is (nil? (static/screen-kind params))
|
|
(str "params: " (pr-str params)))))
|
|
|
|
(t/deftest screen-kind-tolerates-duplicate-screen-params
|
|
;; A repeated query param arrives as a vector; the classifier reads the
|
|
;; scalar the same way the router does instead of crashing on it.
|
|
(t/is (= :dashboard
|
|
(static/screen-kind {:screen ["dashboard-recent" "dashboard-recent"]}))))
|