Skip to content

Commit

Permalink
Format code
Browse files Browse the repository at this point in the history
  • Loading branch information
heralden committed Oct 16, 2019
1 parent f206438 commit 16afbd0
Show file tree
Hide file tree
Showing 3 changed files with 19 additions and 16 deletions.
2 changes: 2 additions & 0 deletions project.clj
Original file line number Diff line number Diff line change
Expand Up @@ -25,6 +25,8 @@
[lein-pdo "0.1.1"]
[lein-cljfmt "0.6.1"]]

:cljfmt {:indents {wait-for [[:inner 0]]}}

:aliases {"dev" ["do" "clean"
["pdo"
["trampoline" "less" "auto"]
Expand Down
1 change: 1 addition & 0 deletions src/im_tables/events.cljs
Original file line number Diff line number Diff line change
Expand Up @@ -537,6 +537,7 @@

;;;;;;;;;;;;;;


(defn index-map
[results offset]
(->> results
Expand Down
32 changes: 16 additions & 16 deletions test/cljs/im_tables/core_test.cljs
Original file line number Diff line number Diff line change
Expand Up @@ -25,22 +25,22 @@

(deftest load-im-tables
(run-test-async
(let [loc [:default]]
(rf/dispatch-sync [:im-tables/load loc im-config])
(wait-for [:main/initial-query-response]
(testing "im-table runs query"
(let [response @(rf/subscribe [:main/query-response loc])]
(is (some? response))))))))
(let [loc [:default]]
(rf/dispatch-sync [:im-tables/load loc im-config])
(wait-for [:main/initial-query-response]
(testing "im-table runs query"
(let [response @(rf/subscribe [:main/query-response loc])]
(is (some? response))))))))

(deftest column-summary
(run-test-async
(let [loc [:default]]
(rf/dispatch-sync [:im-tables/load loc im-config])
(wait-for [:main/initial-query-response]
(rf/dispatch-sync [:im-tables.main/init loc])
(wait-for [(utils/match-times {:main/save-column-summary 6
:main/save-decon-count 3})]
(testing "at least one non-empty column summary"
(let [summaries @(rf/subscribe [:summaries/column-summaries loc])]
(is (some (every-pred map? not-empty)
(map :response (vals summaries)))))))))))
(let [loc [:default]]
(rf/dispatch-sync [:im-tables/load loc im-config])
(wait-for [:main/initial-query-response]
(rf/dispatch-sync [:im-tables.main/init loc])
(wait-for [(utils/match-times {:main/save-column-summary 6
:main/save-decon-count 3})]
(testing "at least one non-empty column summary"
(let [summaries @(rf/subscribe [:summaries/column-summaries loc])]
(is (some (every-pred map? not-empty)
(map :response (vals summaries)))))))))))

0 comments on commit 16afbd0

Please sign in to comment.