       (is (= (rq/query ui :div :ul :li :button) ["Done" "Done"])))))
 
 "The button's `:on-click` handler removes an item from the list."
-(deftest test3
+(fact test3
   (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"]))))

    (add {:ts 2000
          :task "Two"})))

(fact test2
  (let [host (ax/mock-connection "foo")]
    (add-two-tasks host)
    (let [ui (tasks-editor host)]
