diff options
Diffstat (limited to 'src/unheard/time_object_test.clj')
| -rw-r--r-- | src/unheard/time_object_test.clj | 33 |
1 files changed, 6 insertions, 27 deletions
diff --git a/src/unheard/time_object_test.clj b/src/unheard/time_object_test.clj index 07e49c3..13d9c91 100644 --- a/src/unheard/time_object_test.clj +++ b/src/unheard/time_object_test.clj @@ -11,59 +11,38 @@ >to1-end (m/watch to1-end) to1-value (atom :to1-a) >to1-value (m/watch to1-value) - to1 (sut/time-object >to1-start >to1-end >to1-value) - to2-start (atom 7) >to2-start (m/watch to2-start) to2-end (atom 15) >to2-end (m/watch to2-end) to2-value (atom :to1-b) >to2-value (m/watch to2-value) - to2 (sut/time-object >to2-start >to2-end >to2-value) - toc1 (sut/time-object-collection to1 to2) - to3-start (atom 2) >to3-start (m/watch to3-start) to3-end (atom 3) >to3-end (m/watch to3-end) to3-value (atom :to3-a) >to3-value (m/watch to3-value) - to3 (sut/time-object >to3-start >to3-end >to3-value) - to4-start (atom 8) >to4-start (m/watch to4-start) to4-end (atom 12) >to4-end (m/watch to4-end) to4-value (atom :to3-b) >to4-value (m/watch to4-value) - to4 (sut/time-object >to4-start >to4-end >to4-value) - toc2 (sut/time-object-collection to3 to4) - combined (sut/time-object-collection toc1 toc2) - timeline (sut/timeline combined) - point-query-at (atom 0) >point-query-at (m/watch point-query-at) - point-query-result (sut/point-query timeline >point-query-at) - - #_#_#_#_#_#_ - range-query-range (atom [0 10]) - >range-query-range (m/watch range-query-range) - - range-query-result (sut/range-query timeline >range-query-range) - ] - - (def cancel - ((m/reduce rcf/tap nil point-query-result) #() #(throw %))) - - (cancel) - - )) + #_#_#_#_#_#_range-query-range (atom [0 10]) >range-query-range + (m/watch range-query-range) + range-query-result + (sut/range-query timeline >range-query-range)] + (def cancel ((m/reduce rcf/tap nil point-query-result) #() #(throw %))) + (cancel))) |