CLJS-1401: Unify runtime & compile time UUID hash calculation

Author: swannodette

src/main/cljs/cljs/core.cljs

@@ -9834,7 +9834,7 @@ Maps become Objects. Arbitrary keys are encoded to by key->js."
   IHash
   (-hash [this]
     (when (nil? __hash)
-      (set! __hash (goog.string/hashCode uuid)))
+      (set! __hash (hash-string* uuid)))
     __hash)
 
   IComparable

src/main/clojure/cljs/compiler.cljc

@@ -286,7 +286,8 @@
   (emits "new Date(" (.getTime date) ")"))
 
 (defmethod emit-constant #?(:clj java.util.UUID :cljs UUID) [^java.util.UUID uuid]
-  (emits "new cljs.core.UUID(\"" (.toString uuid) "\")"))
+  (let [uuid-str (.toString uuid)]
+    (emits "new cljs.core.UUID(\"" uuid-str "\", " (hash uuid-str) ")")))
 
 #?(:clj
    (defmacro emit-wrap [env & body]

src/test/cljs/cljs/core_test.cljs

@@ -2922,6 +2922,10 @@
   (is (= 'cljs.core/first?
          (demunge (munge 'cljs.core/first?)))))
 
+(deftest test-uuid-compile-and-runtime-hash
+  (is (= (hash (.toString #uuid "0d1f9029-40fc-4728-8bdd-9862172d4370"))
+         (hash (.toString (UUID. "0d1f9029-40fc-4728-8bdd-9862172d4370" nil))))))
+
 (comment
   ;; ObjMap
   ;; (let [ks (map (partial str "foo") (range 500))