       ((second updaters) (rq/mock-change-event "Three"))
       ;; The "Two" value became "Three"
       (is (= (rq/query (tasks-editor host) :div :ul :li :input:value) ["One" "Three"])))))
-
 "A \"New Task\" button creates a new, empty task."
-(deftest test5
+(fact test5
   (let [host (-> (ax/mock-connection "foo")
                  (assoc :time (constantly 555)))]
     (let [ui (tasks-editor host)]

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

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

      (is (= (rq/query (tasks-editor host) :div :ul :li :input:value) ["Two"])))))

"The `:input` box's `:on-change` event updates the task."
(fact test4
  (let [host (ax/mock-connection "foo")]
    (add-two-tasks host)
    (let [ui (tasks-editor host)
