From e406c90d6fead6aa62beab8586be3f172581ea18 Mon Sep 17 00:00:00 2001
From: Sean Corfield <sean@corfield.org>
Date: Sun, 31 May 2020 01:04:29 -0700
Subject: [PATCH] Test result set metadata

---
 test/next/jdbc/datafy_test.clj | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/test/next/jdbc/datafy_test.clj b/test/next/jdbc/datafy_test.clj
index dcd6cf3..736eed5 100644
--- a/test/next/jdbc/datafy_test.clj
+++ b/test/next/jdbc/datafy_test.clj
@@ -7,6 +7,7 @@
             [clojure.test :refer [deftest is testing use-fixtures]]
             [next.jdbc :as jdbc]
             [next.jdbc.datafy]
+            [next.jdbc.result-set :as rs]
             [next.jdbc.specs :as specs]
             [next.jdbc.test-fixtures :refer [with-test-db db ds
                                               derby? postgres? sqlite?]])
@@ -91,4 +92,12 @@
               (is (vector? rs))
               (is (every? map? rs)))))))))
 
-(deftest result-set-metadata-datafy-tests)
+(deftest result-set-metadata-datafy-tests
+  (testing "result set metadata datafication"
+    (let [data (reduce (fn [_ row] (reduced (rs/metadata row)))
+                       nil
+                       (jdbc/plan (ds) ["select * from fruit"]))]
+      (is (vector? data))
+      (is (= 5 (count data)))
+      (is (every? map? data))
+      (is (every? :label data)))))