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

add some test helper function comments

Browse source
This commit is contained in:
Gered 2016-05-27 15:37:37 -04:00
parent 6baf8c3c48
commit 343d12849e
1 changed files with 12 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
test/views/test_helpers.clj
View file

@ -10,6 +10,13 @@
(and view (and view
(satisfies? IView view)))) (satisfies? IView view))))
; the purpose of this function is to compare collections when the order of the elements
; is not important, but there could be duplicates (so a set is not being used). some of
; the operations we test are asynchronous with multiple threads performing the same
; operation simultaneously, so at times our tests that record these operations being done
; could end up with collections of items that are out of order between test runs.
; this is not a problem or bug in views, but just a consequence of the multithreaded
; operation of the library.
(defn contains-only? (defn contains-only?
[coll elements] [coll elements]
(and (= (count coll) (and (= (count coll)
@ -27,12 +34,17 @@
(:namespace view-sig) (:namespace view-sig)
(:parameters view-sig))) (:parameters view-sig)))
; the 200 being used is just a number i pulled out of thin air that "felt good"
(defn wait-for-refresh-views [] (defn wait-for-refresh-views []
(Thread/sleep 200)) (Thread/sleep 200))
(defn wait-for-refresh-interval [options] (defn wait-for-refresh-interval [options]
(Thread/sleep (+ 200 (:refresh-interval options)))) (Thread/sleep (+ 200 (:refresh-interval options))))
; this is kind of a hack, but necessary for some tests where we want to inspect
; the items being sent to the refresh queue without worker threads picking out
; the added items almost instantly.
(defn stop-refresh-worker-threads [] (defn stop-refresh-worker-threads []
(swap! view-system assoc :stop-workers? true) (swap! view-system assoc :stop-workers? true)
(doseq [^Thread t (:workers @view-system)] (doseq [^Thread t (:workers @view-system)]