    [ohds.login.view :as view]
    [ohds.login.messages :as m]
    [ohds.login.processing :as p]
+   [ohds.processing :as op]
    [ohds.framework :refer [with-mounted-component found-in elem]]
    [cljs-http.client :as http]
    [petrol.core :refer [process-message watch-channels wrap]]

          expected {:user {:username "user"}}]
      (is (= expected
             (process-message msg app)))))
  (testing "change password updates state with new password"
    (let [msg (m/->ChangePassword "pwd")
          app {:user {:password "not-a-password"}}
          expected {:user {:password "pwd"}}]
      (is (= expected
             (process-message msg app)))))
  (testing "submitting login updates fieldworker-id, page, and mode"
    (let [response {:status 200
                       :body "some-uuid"}

                                                                  :password "pwd"}})
            expected #{(m/map->LoginResults {:body "some-uuid-response" :status 200})}]
        
        (is (= actual expected)))))

  (testing "login results event triggers initial state from backend"
    ))
