       (is (= (rq/query (tasks-editor host) :div :ul :li :input:value) ["Two"])))))
 
 "The `:input` box's `:on-change` event updates the task."
-(deftest test4
+(fact test4
   (let [host (ax/mock-connection "foo")]
     (add-two-tasks host)
     (let [ui (tasks-editor host)

We use [reagent-query](https://github.com/brosenan/reagent-query) for querying the generated UI.
We start with an empty task-list.
We expect to see a `:div` containing a `:h2` with the user's name."
(deftest test1
  (let [host (ax/mock-connection "foo")
        ui (tasks-editor host)]
    (is (= (rq/query ui :div :h2) ["foo's Tasks"]))))

      (is (= (rq/query ui :div :ul :li :button) ["Done" "Done"])))))

"The button's `:on-click` handler removes an item from the list."
(fact test3
  (let [host (ax/mock-connection "foo")]
    (add-two-tasks host)
    (let [ui (tasks-editor host)
