Add a test showing a customized id-query-for.

duelinmarkers · Sep 4, 2009 · 5ad965c · 5ad965c
1 parent 99cf067
commit 5ad965c
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/test/clj_record/util_test.clj b/test/clj_record/util_test.clj
@@ -38,3 +38,12 @@
 (deftest throws-if-asked-for-id-query-of-unrecognized-db-spec
   (is (thrown? Exception
     (util/id-query-for {:classname "com.example.MadeUpDriver" :subprotocol "madeup"}))))
+
+(defmethod util/id-query-for "fake subprotocol" [db-spec table-name]
+  (str "made up query"))
+
+(deftest provides-id-query-for-whatever-dbms-you-like-if-you-defmethod-for-it
+  (are (= _1 (util/id-query-for _2 "table_name"))
+    "made up query" {:subprotocol "fake subprotocol"}))
+
+