Merge branch 'master' of github.com:clojure/clojurescript

alexisvincent · Jan 4, 2021 · 73cba74 · 73cba74
2 parents afe2cf7 + fa4b8d8
commit 73cba74
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/src/main/cljs/cljs/core.cljs b/src/main/cljs/cljs/core.cljs
@@ -10288,7 +10288,7 @@ reduces them without incurring seq initialization"
                               ns)))]
           (write-all writer
             "#inst \""
-            (str (.getUTCFullYear obj))             "-"
+            (normalize (.getUTCFullYear obj) 4)     "-"
             (normalize (inc (.getUTCMonth obj)) 2)  "-"
             (normalize (.getUTCDate obj) 2)         "T"
             (normalize (.getUTCHours obj) 2)        ":"

diff --git a/src/test/cljs/cljs/core_test.cljs b/src/test/cljs/cljs/core_test.cljs
@@ -1810,6 +1810,10 @@
   (is (= :/ (keyword "/")))
   (is (= (hash :/) (hash (keyword "/")))))
 
+(deftest test-cljs-3263
+  (is (= "#inst \"0985-04-12T23:20:50.520-00:00\"" (pr-str #inst "0985-04-12T23:20:50.520-00:00")))
+  (is (= "#inst \"1970-12-18T23:20:50.520-00:00\"" (pr-str #inst "1970-12-18T23:20:50.520-00:00"))))
+
 (deftest test-cljs-3270
   (is (== 10 (count (range 0 (+ 1 (/ 9)) (/ 9))))))