Test parse-uuid tolerance to non-standard forms

Author: super7ramp

test/clojure/core_test/parse_uuid.cljc

@@ -16,6 +16,11 @@
       (when-var-exists clojure.core/instance?
         #?(:clj  (is (instance? java.util.UUID (parse-uuid "b6883c0a-0342-4007-9966-bc2dfa6b109e"))))
         #?(:cljs (is (instance? cljs.core.UUID (parse-uuid "b6883c0a-0342-4007-9966-bc2dfa6b109e"))))))
+    (testing "tolerance to non-standard forms"
+      (are [expected s] (= #?(:cljr nil :default expected) (parse-uuid s)) ; cljr is strict
+                        #uuid "00000000-0000-0000-0000-000000000000" "0-0-0-0-0"
+                        #uuid "00000012-0034-0056-0078-000000000009" "12-34-56-78-9"
+                        #uuid "00000005-0004-0003-0002-009000000001" "5-4-3-DEADBEEF0002-9000000001"))
     (testing "exceptions"
       #?(:clj (are [x] (thrown? Exception (parse-uuid x))
                    {}