testing re-frame

test-set-active-page-handler.cljs

(defn set-active-page-handler
  "the handler for the event-function :set-active-page"
  [db page slug]
  (let [set-page (assoc db :page page)]
    (case page
      :home {:db set-page}
      (:login :register :settings) {:db set-page}
      :tours {:db set-page
              :dispatch [:get-tours]}
      :editor {:db set-page
               :dispatch (if slug
                           [:set-active-tour slug]
                           [:reset-active-tour])})))

(reg-event-fx
 :set-active-page
 (fn [{:keys [db]} [_ {:keys [page slug]}]]
   (set-active-page-handler db page slug)))

(deftest test-set-active-page-handler
  (testing "set-active-page-handler returns correct effects for :home"
    (let [db {:page :register}
          page :home
          slug nil]
      (is (= (sut/set-active-page-handler db page slug)
             {:db {:page :home}})))))