CalvinBackup/penpot
1
0
Fork 0
mirror of https://github.com/penpot/penpot.git synced 2026-03-30 00:00:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

🔧 Add fake uuid generator for debugging

Browse Source
This commit is contained in:
Andrés Moya
2026-03-25 19:04:21 +01:00
parent aec954b558
commit 083f83cb8a
1 changed files with 14 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
common/src/app/common/uuid.cljc
View File

@@ -60,8 +60,9 @@
:cljs (uuid (impl/v4))))
(defn custom
([a] #?(:clj (UUID. 0 a) :cljs (uuid (impl/custom 0 a))))
([b a] #?(:clj (UUID. b a) :cljs (uuid (impl/custom b a)))))
"Generate a uuid using directly the given number (specified as two long integers)"
([low] #?(:clj (UUID. 0 low) :cljs (uuid (impl/custom 0 low))))
([high low] #?(:clj (UUID. high low) :cljs (uuid (impl/custom high low)))))
(def zero (uuid "00000000-0000-0000-0000-000000000000"))
@@ -137,6 +138,17 @@
(+ (clojure.lang.Murmur3/hashLong a)
(clojure.lang.Murmur3/hashLong b)))))
;; Fake uuids generator
(def ^:private fake-ids (atom 0))
(defn next-fake
"When you need predictable uuids, for example when debugging a failing test, wrap the code with
(with-redefs [uuid/next uuid/next-fake]
...tested code...)"
[]
(-> (swap! fake-ids inc)
(custom)))
;; Commented code used for debug
;; #?(:cljs
;; (defn ^:export test-uuid