Make new tests pass in production mode

This commit is contained in:
Dan Holmsand 2016-05-01 15:18:26 +02:00
parent 8e1f671d10
commit 00bfb8ed01
2 changed files with 2 additions and 2 deletions

View File

@ -401,7 +401,8 @@
state (r/atom {:val 1}) state (r/atom {:val 1})
rstate (reaction (:val @state)) rstate (reaction (:val @state))
r1 (run! r1 (run!
(assert (not= @rstate 13) "fail"))] (when (= @rstate 13)
(throw (ex-info "fail" nil))))]
(swap! state assoc :val 13) (swap! state assoc :val 13)
(is (thrown? :default (is (thrown? :default
(r/flush))) (r/flush)))

View File

@ -47,7 +47,6 @@
(when (and isClient (when (and isClient
(not (:really-simple-test @tests-done))) (not (:really-simple-test @tests-done)))
(swap! tests-done assoc :really-simple-test true) (swap! tests-done assoc :really-simple-test true)
(js/console.log "really simple")
(let [ran (r/atom 0) (let [ran (r/atom 0)
really-simple (fn [] really-simple (fn []
(swap! ran inc) (swap! ran inc)