gered/views
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Merge branch 'master' of github.com:diligenceengine/views

Browse source
This commit is contained in:
Alexander K. Hudek 2015-04-10 00:35:55 -04:00
parent 1fc23f994f 6f11343397
commit 73897e543f
2 changed files with 38 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
test/views/core_test.clj Normal file
View file

@ -0,0 +1,37 @@
(ns views.core-test
(:require
[clojure.test :refer [is deftest use-fixtures]]
[views.protocols :refer [IView id data relevant?]]
[views.core :as v]))
(def memory-system (atom {}))
(defrecord MemoryView [id ks]
IView
(id [_] id)
(data [_ namespace parameters]
(get-in @memory-system (-> [namespace] (into ks) (into parameters))))
(relevant? [_ namespace parameters hints]
(some #(and (= namespace (:namespace %)) (= ks (:hint %))) hints)))
(def example-view-system
{:views {:foo (MemoryView. :foo [:foo])
:bar (MemoryView. :bar [:bar])
:baz (MemoryView. :baz [:baz])}
:send-fn (fn [_ _])})
(deftest subscribes-views
(let [view-system (atom example-view-system)
subscribe1 (v/subscribe! view-system :namespace :foo [] 1)
subscribe2 (v/subscribe! view-system :namespace :bar [] 2)]
(while (or (not (realized? subscribe1)) (not (realized? subscribe2)))) ; block until futures are realized
(is (= #{[:namespace :bar []] [:namespace :foo []]}
(v/subscribed-views @view-system)))))
(deftest unsubscribes-a-view
(let [view-system (atom example-view-system)
subscribe1 (v/subscribe! view-system :namespace :foo [] 1)
subscribe2 (v/subscribe! view-system :namespace :bar [] 2)]
(while (or (not (realized? subscribe1)) (not (realized? subscribe2)))) ; block until futures are realized
(v/unsubscribe! view-system :namespace :foo [] 1)
(is (= #{[:namespace :bar []]} (v/subscribed-views @view-system)))))