test: Add test exercising CSV-writing code

chi-collective · Jun 12, 2024 · a66976b · a66976b
1 parent e069b2e
commit a66976b
Showing 1 changed file with 13 additions and 0 deletions.
diff --git a/test/gensql/query/main_test.clj b/test/gensql/query/main_test.clj
@@ -0,0 +1,13 @@
+(ns gensql.query.main-test
+  (:refer-clojure :exclude [eval])
+  (:require [clojure.java.io :as io]
+            [clojure.test :refer [deftest is]]
+            [gensql.query.io :as query.io]
+            [gensql.query.main :as main]
+            [gensql.query.relation :as relation]))
+
+(deftest print-csv-round-trip
+  (let [input (relation/relation [{"x" 0 "y" 1}])
+        csv-str (with-out-str (main/print-csv input))
+        output (query.io/slurp-csv (io/reader (char-array csv-str)))]
+    (is (= input output))))