From f775e67912f72e4e5e1458168fbda2ef7b6f056c Mon Sep 17 00:00:00 2001
From: Richard Newman <rnewman@twinql.com>
Date: Thu, 6 Oct 2016 15:49:53 -0700
Subject: [PATCH] Add a test for long strings round-tripping through
 node-sqlite3. Fixes #65.

---
 test/datomish/promise_sqlite_test.cljs | 29 ++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)

diff --git a/test/datomish/promise_sqlite_test.cljs b/test/datomish/promise_sqlite_test.cljs
index ad5d797d..cc9a22f6 100644
--- a/test/datomish/promise_sqlite_test.cljs
+++ b/test/datomish/promise_sqlite_test.cljs
@@ -55,3 +55,32 @@
           (is (= rows [{:b 2}])))
         (finally
           (<? (s/close db)))))))
+
+(deftest-async test-long-strings
+  ;; Make a string that's nicely over the 32K limit in node-sqlite3/#668.
+  (let [s (str "be" (apply str (repeat 330000 "la")) "st")]
+    (with-tempfile [t (tempfile)]
+      (let [db (<? (ps/open (.-name t)))]
+        (try
+          (<? (s/execute! db ["CREATE TABLE strs (x INTEGER, a TEXT)"]))
+          (<? (s/execute! db ["INSERT INTO strs VALUES (42, ?)" s]))
+
+          ;; Test retrieval via binding comparison.
+          (is (= (<? (s/all-rows db ["SELECT x FROM strs WHERE a = ?" s]))
+                 [{:x 42}]))
+
+          ;; Test computation.
+          (is (= (<? (s/all-rows db ["SELECT length(a) AS yvr FROM strs"]))
+                 [{:yvr 660004}]))
+          (is (= (<? (s/all-rows db ["SELECT length(?) AS yvr FROM strs" s]))
+                 [{:yvr 660004}]))
+
+          ;; Test round-tripping.
+          (is (= (<? (s/all-rows db ["SELECT x, a FROM strs"]))
+                 [{:x 42, :a s}]))
+          (is (= (<? (s/all-rows db ["SELECT ? AS yyz FROM strs" s]))
+                 [{:yyz s}]))
+
+          (finally
+            (<? (s/close db))))
+        ))))