mirror of
https://github.com/penpot/penpot.git
synced 2025-07-15 01:27:16 +02:00
3d61924162
For make it more consistent with CLJ impl and move the equals helper to buffers for make it reusable by other binary types.
97 lines
4 KiB
Clojure
97 lines
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 INC
|
|
|
|
(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))))))))
|