From 9136ba742590e67fa7f8d9498eea10603a1fd9b8 Mon Sep 17 00:00:00 2001
From: Richard Newman <rnewman@twinql.com>
Date: Thu, 11 Aug 2016 17:20:27 -0700
Subject: [PATCH] Basic test for ds/fulltext?.

---
 test/datomish/api.cljc     | 2 ++
 test/datomish/db_test.cljc | 7 ++++++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/test/datomish/api.cljc b/test/datomish/api.cljc
index d1155dd0..6ceb93e4 100644
--- a/test/datomish/api.cljc
+++ b/test/datomish/api.cljc
@@ -39,3 +39,5 @@
 (def ident db/ident)
 
 (def <q db/<?q)
+
+(def schema db/schema)
diff --git a/test/datomish/db_test.cljc b/test/datomish/db_test.cljc
index 532a8170..962d17a2 100644
--- a/test/datomish/db_test.cljc
+++ b/test/datomish/db_test.cljc
@@ -12,6 +12,7 @@
    [datomish.api :as d]
    [datomish.db.debug :refer [<datoms-after <transactions-after <shallow-entity <fulltext-values]]
    [datomish.util :as util #?(:cljs :refer-macros :clj :refer) [raise cond-let]]
+   [datomish.schema :as ds]
    [datomish.sqlite :as s]
    [datomish.sqlite-schema]
    [datomish.datom]
@@ -412,9 +413,13 @@
                   {:db/id :db.part/db :db.install/attribute (d/id-literal :db.part/db -2)}
                   ]
           tx0 (:tx (<? (d/<transact! conn schema)))]
+      (testing "Schema checks"
+               (is (ds/fulltext? (d/schema (d/db conn))
+                                 (d/entid (d/db conn) :test/fulltext))))
       (try
         (testing "Can add fulltext indexed datoms"
-          (let [{tx1 :tx txInstant1 :txInstant} (<? (d/<transact! conn [[:db/add 101 :test/fulltext "test this"]]))]
+          (let [{tx1 :tx txInstant1 :txInstant}
+                (<? (d/<transact! conn [[:db/add 101 :test/fulltext "test this"]]))]
             (is (= (<? (<fulltext-values (d/db conn)))
                    [[1 "test this"]]))
             (is (= (<? (<datoms-after (d/db conn) tx0))