Skip to content

Instantly share code, notes, and snippets.

@micha

micha/foo.cljs

Last active November 6, 2016 15:20
Show Gist options
  • Save micha/138c6bcc2e862346b133c278574a7a12 to your computer and use it in GitHub Desktop.
Save micha/138c6bcc2e862346b133c278574a7a12 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
foo.cljs
(deftest bind-events
(let [c (j/cell nil)
f #(reset! c true)
i (h/div :click f)]
(-> js/document .-body (.appendChild i))
(with-dom i
; Native event.
(is (nil? @c))
(.dispatchEvent i (js/Event. "click"))
(is (= true @c)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment