mirror of
https://github.com/penpot/penpot.git
synced 2026-09-24 04:46:14 +00:00
141 lines
6.4 KiB
Clojure
141 lines
6.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 common-tests.uuid-test
|
|
(:require
|
|
[app.common.uuid :as uuid]
|
|
[clojure.test :as t]))
|
|
|
|
(defn create-array
|
|
[data]
|
|
#?(:clj (byte-array data)
|
|
:cljs (.from js/Int8Array (into-array data))))
|
|
|
|
(t/deftest bytes-roundtrip
|
|
(let [uuid (uuid/uuid "0227df82-63d7-8016-8005-48d9c0f33011")
|
|
result-bytes (uuid/get-bytes uuid)
|
|
expected-bytes [2 39 -33 -126 99 -41 -128 22 -128 5 72 -39 -64 -13 48 17]]
|
|
|
|
(t/testing "get-bytes"
|
|
(let [data (uuid/get-bytes uuid)]
|
|
(t/is (= (nth expected-bytes 0) (aget data 0)))
|
|
(t/is (= (nth expected-bytes 1) (aget data 1)))
|
|
(t/is (= (nth expected-bytes 2) (aget data 2)))
|
|
(t/is (= (nth expected-bytes 3) (aget data 3)))
|
|
(t/is (= (nth expected-bytes 4) (aget data 4)))
|
|
(t/is (= (nth expected-bytes 5) (aget data 5)))
|
|
(t/is (= (nth expected-bytes 6) (aget data 6)))
|
|
(t/is (= (nth expected-bytes 7) (aget data 7)))
|
|
(t/is (= (nth expected-bytes 8) (aget data 8)))
|
|
(t/is (= (nth expected-bytes 9) (aget data 9)))
|
|
(t/is (= (nth expected-bytes 10) (aget data 10)))
|
|
(t/is (= (nth expected-bytes 11) (aget data 11)))
|
|
(t/is (= (nth expected-bytes 12) (aget data 12)))
|
|
(t/is (= (nth expected-bytes 13) (aget data 13)))
|
|
(t/is (= (nth expected-bytes 14) (aget data 14)))
|
|
(t/is (= (nth expected-bytes 15) (aget data 15)))))
|
|
|
|
(t/testing "from-bytes"
|
|
(let [data (create-array expected-bytes)
|
|
result (uuid/from-bytes data)]
|
|
(t/is (= result uuid))))))
|
|
|
|
|
|
(t/deftest bytes-roundtrip-2
|
|
(let [uuid (uuid/uuid "a1a2a3a4-b1b2-c1c2-d1d2-d3d4d5d6d7d8")
|
|
result-bytes (uuid/get-bytes uuid)
|
|
expected-hi #?(:clj -6799692559624781374
|
|
:cljs (js/BigInt "-6799692559624781374"))
|
|
expected-lo #?(:clj -3327364263599220776
|
|
:cljs (js/BigInt "-3327364263599220776"))
|
|
|
|
expected-bytes [-95, -94, -93, -92, -79, -78, -63, -62, -47, -46, -45, -44, -43, -42, -41, -40]]
|
|
|
|
(t/testing "get-bytes"
|
|
(let [data (uuid/get-bytes uuid)]
|
|
(t/is (= (nth expected-bytes 0) (aget data 0)))
|
|
(t/is (= (nth expected-bytes 1) (aget data 1)))
|
|
(t/is (= (nth expected-bytes 2) (aget data 2)))
|
|
(t/is (= (nth expected-bytes 3) (aget data 3)))
|
|
(t/is (= (nth expected-bytes 4) (aget data 4)))
|
|
(t/is (= (nth expected-bytes 5) (aget data 5)))
|
|
(t/is (= (nth expected-bytes 6) (aget data 6)))
|
|
(t/is (= (nth expected-bytes 7) (aget data 7)))
|
|
(t/is (= (nth expected-bytes 8) (aget data 8)))
|
|
(t/is (= (nth expected-bytes 9) (aget data 9)))
|
|
(t/is (= (nth expected-bytes 10) (aget data 10)))
|
|
(t/is (= (nth expected-bytes 11) (aget data 11)))
|
|
(t/is (= (nth expected-bytes 12) (aget data 12)))
|
|
(t/is (= (nth expected-bytes 13) (aget data 13)))
|
|
(t/is (= (nth expected-bytes 14) (aget data 14)))
|
|
(t/is (= (nth expected-bytes 15) (aget data 15)))))
|
|
|
|
(t/testing "from-bytes"
|
|
(let [data (create-array expected-bytes)
|
|
result (uuid/from-bytes data)]
|
|
(t/is (= result uuid))))
|
|
|
|
(t/testing "hi-low"
|
|
(let [hi (uuid/get-word-high uuid)
|
|
lo (uuid/get-word-low uuid)]
|
|
|
|
(t/is (= hi expected-hi))
|
|
(t/is (= lo expected-lo))))
|
|
|
|
#?(:cljs
|
|
(t/testing "unsigned-parts"
|
|
(let [parts (uuid/get-unsigned-parts uuid)
|
|
expected [2711790500, 2981282242, 3520254932, 3587626968]]
|
|
|
|
(t/is (instance? js/Uint32Array parts))
|
|
(t/is (= (nth expected 0) (aget parts 0)))
|
|
(t/is (= (nth expected 1) (aget parts 1)))
|
|
(t/is (= (nth expected 2) (aget parts 2)))
|
|
(t/is (= (nth expected 3) (aget parts 3))))))))
|
|
|
|
(t/deftest user-provided-test
|
|
;; The version is the first nibble of the 3rd group, the variant is
|
|
;; the first nibble of the 4th group (8, 9, a or b means RFC 4122).
|
|
(let [v4 (uuid/uuid "550e8400-e29b-41d4-a716-446655440000") ; v4, variant a: valid
|
|
v7 (uuid/uuid "0191062e-3f50-7a5e-9f5a-1a2b3c4d5e6f") ; v7, variant 9: valid
|
|
v8 (uuid/uuid "0227df82-63d7-8016-8005-48d9c0f33011") ; v8, variant 8: valid
|
|
v4-upper (uuid/uuid "550E8400-E29B-41D4-A716-446655440000") ; v4 uppercase, variant A: valid
|
|
v1 (uuid/uuid "6ba7b810-9dad-11d1-80b4-00c04fd430c8") ; v1 time-based: rejected
|
|
v3 (uuid/uuid "6fa459ea-ee8a-3ca4-894e-db77e160355e") ; v3 MD5 name-based (reserved): rejected
|
|
v5 (uuid/uuid "886313e1-3b8a-5372-9b90-0c9aee199e5d") ; v5 SHA-1 name-based: rejected
|
|
v6 (uuid/uuid "1e29effc-7a68-6d2c-9b6f-7f6a5f9b5b5b") ; v6 time-ordered: rejected
|
|
v4-bad-variant (uuid/uuid "550e8400-e29b-41d4-0716-446655440000")] ; v4 but variant 0 (NCS reserved): rejected
|
|
|
|
(t/testing "accepts v4, v7 and v8 instances"
|
|
(t/is (true? (uuid/user-provided? v4)))
|
|
(t/is (true? (uuid/user-provided? v7)))
|
|
(t/is (true? (uuid/user-provided? v8)))
|
|
(t/is (true? (uuid/user-provided? v4-upper)))
|
|
(t/is (true? (uuid/user-provided? (uuid/random)))) ; generates v4
|
|
(t/is (true? (uuid/user-provided? (uuid/next))))) ; generates v8
|
|
|
|
(t/testing "rejects strings, they must be decoded first"
|
|
(t/is (false? (uuid/user-provided? (str v4))))
|
|
(t/is (false? (uuid/user-provided? (str v7))))
|
|
(t/is (false? (uuid/user-provided? (str v8))))
|
|
(t/is (false? (uuid/user-provided? (str v3)))))
|
|
|
|
(t/testing "rejects nil uuid and reserved and other versions"
|
|
(t/is (false? (uuid/user-provided? uuid/zero))) ; version 0, variant 0
|
|
(t/is (false? (uuid/user-provided? v1)))
|
|
(t/is (false? (uuid/user-provided? v3)))
|
|
(t/is (false? (uuid/user-provided? v5)))
|
|
(t/is (false? (uuid/user-provided? v6)))
|
|
(t/is (false? (uuid/user-provided? (uuid/custom 1))))) ; version 0, variant 0
|
|
|
|
(t/testing "rejects right version with wrong variant"
|
|
(t/is (false? (uuid/user-provided? v4-bad-variant))))
|
|
|
|
(t/testing "rejects non-uuid values"
|
|
(t/is (false? (uuid/user-provided? nil)))
|
|
(t/is (false? (uuid/user-provided? 42)))
|
|
(t/is (false? (uuid/user-provided? "not-an-uuid"))))))
|