Improve datetime cson test

Author: djblue

src/portal/runtime/cson.cljc

@@ -353,11 +353,11 @@
         (json/push-string "inst")
         (json/push-long
          (inst-ms
-          #?(:cljr (.UtcDateTime (System.DateTimeOffset. value)) :default value))))))
+          #?(:cljr (.ToUniversalTime value) :default value))))))
 
 (defn- ->inst [buffer]
   #?(:clj  (Date. ^long (json/next-long buffer))
-     :cljr (.DateTime
+     :cljr (.UtcDateTime
             (System.DateTimeOffset/FromUnixTimeMilliseconds
              (json/next-long buffer)))
      :cljs (js/Date. (json/next-long buffer))))

test/portal/runtime/cson_test.cljc

@@ -125,9 +125,7 @@
     (is (= (seq a) (seq b)))))
 
 (def tagged
-  [#?(:clj  (Date.)
-      :cljr (DateTime/Now)
-      :cljs (js/Date.))
+  [#inst "2021-04-07T22:43:59.393-00:00"
    #?(:clj  (UUID/randomUUID)
       :cljr (Guid/NewGuid)
       :cljs (random-uuid))
@@ -136,7 +134,7 @@
 
 (deftest tagged-objects
   (doseq [value tagged]
-    (is (= (pass value) (pass value)))))
+    (is (= value (pass value)))))
 
 (defn meta* [v]
   #?(:bb (dissoc (meta v) :type) :cljr (meta v) :clj (meta v) :cljs (meta v)))