mirror of
https://github.com/penpot/penpot.git
synced 2025-12-12 06:24:17 +01:00
34 lines
1.2 KiB
Clojure
34 lines
1.2 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 INC
|
|
|
|
(ns common-tests.path-names-test
|
|
(:require
|
|
[app.common.path-names :as cpn]
|
|
[clojure.test :as t]))
|
|
|
|
(t/deftest split-group-name
|
|
(t/is (= ["foo" "bar"] (cpn/split-group-name "foo/bar")))
|
|
(t/is (= ["" "foo"] (cpn/split-group-name "foo")))
|
|
(t/is (= ["" "foo"] (cpn/split-group-name "/foo")))
|
|
(t/is (= ["" ""] (cpn/split-group-name "")))
|
|
(t/is (= ["" ""] (cpn/split-group-name nil))))
|
|
|
|
(t/deftest split-and-join-path
|
|
(let [name "group/subgroup/name"
|
|
path (cpn/split-path name :separator "/")
|
|
name' (cpn/join-path path :separator "/" :with-spaces? false)]
|
|
(t/is (= (first path) "group"))
|
|
(t/is (= (second path) "subgroup"))
|
|
(t/is (= (nth path 2) "name"))
|
|
(t/is (= name' name))))
|
|
|
|
(t/deftest split-and-join-path-with-spaces
|
|
(let [name "group / subgroup / name"
|
|
path (cpn/split-path name :separator "/")]
|
|
(t/is (= (first path) "group"))
|
|
(t/is (= (second path) "subgroup"))
|
|
(t/is (= (nth path 2) "name"))))
|