views.sql/test/views/sql/vexec_tests.clj

(ns views.sql.vexec-tests
  (:use
    clojure.test
    views.sql.test-fixtures
    views.sql.core)
  (:require
    [clojure.java.jdbc :as jdbc]
    [views.core :as views]))

(defn vexec-redefs-fixture [f]
  (reset! redefs-called {})
  (with-redefs
    [jdbc/query       (->redef-fn :jdbc/query :jdbc/query-return-value)
     jdbc/execute!    (->redef-fn :jdbc/execute! :jdbc/execute!-return-value)
     views/put-hints! (->redef-fn :views/put-hints!)]
    (f)))


(use-fixtures :each clear-query-cache-fixture reset-test-view-system-fixture vexec-redefs-fixture)

(deftest vexec-runs-query-and-puts-hints
  (let [sqlvec ["INSERT INTO example (field1, field2, field3) VALUES ('test', 'N', NULL)"]
        result (vexec! test-view-system test-db sqlvec)]
    (is (called-with-args? :jdbc/execute! test-db sqlvec))
    (is (= :jdbc/execute!-return-value result))
    (is (called-with-args? :views/put-hints! test-view-system [(views/hint nil #{:example} hint-type)]))))

(deftest vexec-runs-query-with-returning-clause
  (let [sqlvec ["INSERT INTO example (field1, field2, field3) VALUES ('test', 'N', NULL) RETURNING *"]
        result (vexec! test-view-system test-db sqlvec)]
    (is (called-with-args? :jdbc/query test-db sqlvec))
    (is (= :jdbc/query-return-value result))
    (is (called-with-args? :views/put-hints! test-view-system [(views/hint nil #{:example} hint-type)]))))

(deftest namespace-is-passed-along-to-hints-via-vexec
  (let [sqlvec ["INSERT INTO example (field1, field2, field3) VALUES ('test', 'N', NULL)"]
        result (vexec! test-view-system test-db sqlvec {:namespace :foobar})]
    (is (called-with-args? :jdbc/execute! test-db sqlvec))
    (is (= :jdbc/execute!-return-value result))
    (is (called-with-args? :views/put-hints! test-view-system [(views/hint :foobar #{:example} hint-type)]))))

(deftest manually-provided-hints-to-vexec-are-passed-to-views-system
  (let [sqlvec ["INSERT INTO example (field1, field2, field3) VALUES ('test', 'N', NULL)"]
        result (vexec! test-view-system test-db sqlvec [:foo :bar])]
    (is (called-with-args? :jdbc/execute! test-db sqlvec))
    (is (= :jdbc/execute!-return-value result))
    (is (called-with-args? :views/put-hints! test-view-system [(views/hint nil #{:foo :bar} hint-type)]))))

(deftest manually-provided-hints-to-vexec-also-requires-specifying-returning-option
  (let [sqlvec ["INSERT INTO example (field1, field2, field3) VALUES ('test', 'N', NULL) RETURNING *"]
        result (vexec! test-view-system test-db sqlvec [:foo :bar])]
    ; means jdbc/execute! was called which is correct behaviour since the returning option was not specified.
    ; if jdbc/execute! was really called it would throw an exception since the INSERT query used has a RETURNING clause
    (is (called-with-args? :jdbc/execute! test-db sqlvec))
    (is (= :jdbc/execute!-return-value result))
    (is (called-with-args? :views/put-hints! test-view-system [(views/hint nil #{:foo :bar} hint-type)])))
  ; manually reset some things
  (reset! redefs-called {})
  (reset! query-info-cache {})
  (let [sqlvec ["INSERT INTO example (field1, field2, field3) VALUES ('test', 'N', NULL) RETURNING *"]
        result (vexec! test-view-system test-db sqlvec [:foo :bar] {:returning? true})]
    (is (called-with-args? :jdbc/query test-db sqlvec))
    (is (= :jdbc/query-return-value result))
    (is (called-with-args? :views/put-hints! test-view-system [(views/hint nil #{:foo :bar} hint-type)]))))