CLJS-1095: UUID to implement IComparable

Author: tonsky

src/cljs/cljs/core.cljs

@@ -9331,7 +9331,11 @@ Maps become Objects. Arbitrary keys are encoded to by key->js."
 
   IHash
   (-hash [this]
-    (goog.string/hashCode (pr-str this))))
+    (goog.string/hashCode (pr-str this)))
+
+  IComparable
+  (-compare [_ other]
+    (garray/defaultCompare uuid (.-uuid other))))
 
 ;;; ExceptionInfo
 

test/cljs/cljs/core_test.cljs

@@ -1629,6 +1629,12 @@
               (get {(UUID. "550e8400-e29b-41d4-a716-446655440000") 42}
                 (UUID. "666e8400-e29b-41d4-a716-446655440000")
                 :not-at-all-found)))
+    (is (= -1 (compare (UUID. "550e8400-e29b-41d4-a716-446655440000")
+                       (UUID. "666e8400-e29b-41d4-a716-446655440000"))))
+    (is (=  1 (compare (UUID. "550e8400-e29b-41d4-a716-446655440000")
+                       (UUID. "550e8400-a29b-41d4-a716-446655440000"))))
+    (is (=  0 (compare (UUID. "550e8400-e29b-41d4-a716-446655440000")
+                       (UUID. "550e8400-e29b-41d4-a716-446655440000"))))
     ))
 
 (deftest test-comparable