   (testing "Go Home"
     (let [ev (sut/->GoHome)
           evs (atom #{})]
-      (rxt/on-value (ptk/watch ev initial-state (rxt/empty))
+      (rx/on-value (ptk/watch ev initial-state (rx/empty))
                     #(swap! evs conj %))
       (is (= (count @evs) 3))
       (is (@evs (sut/->LeavePub)))

      (is (state-valid? (ptk/update ev initial-state)))))
  (testing "Small Shot"
    (let [ev (sut/->SmallShot)]
      (rxt/on-value (ptk/watch ev initial-state (rxt/empty))
                    #(is (= (sut/->Drink 2) %)))))
  (testing "Big Shot"
    (let [ev (sut/->BigShot)]
      (rxt/on-value (ptk/watch ev initial-state (rxt/empty))
                    #(is (= (sut/->Drink 5) %)))))
  (testing "Drain"
    (let [ev (sut/->Drain)]

            [potok-rumu.spec]
            [potok-rumu.store]
            [potok.core :as ptk]
            [beicon.core :as rx]
            [cljs.spec :as s]
            [cljs.test :as t :include-macros true]))

