diff --git a/test/clojure/core_test/parse_uuid.cljc b/test/clojure/core_test/parse_uuid.cljc index 8fc3468c..87ae23d1 100644 --- a/test/clojure/core_test/parse_uuid.cljc +++ b/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] (= #?(:clj expected :default nil) (parse-uuid s)) ; clj is permissive, others are 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)) {}