CLJS-1638: :elide-asserts disables atom validators in :advanced

Author: mfikes

src/main/cljs/cljs/core.cljs

@@ -4244,7 +4244,8 @@ reduces them without incurring seq initialization"
   (if (instance? Atom a)
     (let [validate (.-validator a)]
       (when-not (nil? validate)
-        (assert (validate new-value) "Validator rejected reference state"))
+        (when-not (validate new-value)
+          (throw (js/Error. "Validator rejected reference state"))))
       (let [old-value (.-state a)]
         (set! (.-state a) new-value)
         (when-not (nil? (.-watches a))

src/test/cljs/cljs/core_test.cljs

@@ -743,6 +743,7 @@
   (let [a (atom [1] :validator coll? :meta {:a 1})]
     (testing "Testing atom validators"
       (is (= coll? (get-validator a)))
+      (is (thrown? js/Error (reset! a 1)))
       (is (= {:a 1} (meta a)))
       (alter-meta! a assoc :b 2)
       (is (= {:a 1 :b 2} (meta a)))))