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

add unit test for view row-fn / result-set-fn options

Browse source
This commit is contained in:
Gered 2016-06-01 17:07:41 -04:00
parent cbeae300d9
commit fcd9777024
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
test/views/sql/view_test.clj
View file

@ -80,3 +80,18 @@
(is (= true (relevant? sql-view nil [] [(views/hint nil #{:bar} hint-type) (is (= true (relevant? sql-view nil [] [(views/hint nil #{:bar} hint-type)
(views/hint nil #{:foo} hint-type)]))) (views/hint nil #{:foo} hint-type)])))
(is (not-called? :query-tables))))) (is (not-called? :query-tables)))))
(deftest row-and-result-set-fns-are-passed-to-jdbc
(let [row-fn (fn [row] row)
result-set-fn (fn [results] results)
sqlvec ["SELECT * FROM foobar"]
sql-fn (fn [] sqlvec)
sql-view (view :test-view test-db sql-fn {:row-fn row-fn
:result-set-fn result-set-fn})]
(is (satisfies? IView sql-view))
(is (= :test-view (id sql-view)))
(is (= true (relevant? sql-view nil [] [(views/hint nil #{:foobar} hint-type)])))
(is (= false (relevant? sql-view nil [] [(views/hint nil #{:baz} hint-type)])))
(is (= :jdbc/query-return-value (data sql-view nil [])))
(is (called-with-args? :jdbc/query test-db sqlvec {:row-fn row-fn
:result-set-fn result-set-fn}))))