chore: adds some comments with tests

Author: rafaeldelboni

resources/config.edn

@@ -3,6 +3,10 @@
         {:git/url "https://github.com/clojure/clojure"
          :git/tag "clojure-1.11.1"
          :git/sha "ce55092f2b2f5481d25cff6205470c1335760ef6"}
+        org.clojure/core.logic
+        {:git/url "https://github.com/clojure/core.logic"
+         :git/tag "v1.0.1"
+         :git/sha "d854548a1eb0706150bd5f5d939c7bca162c07fb"}
         org.clojure/clojurescript
         {:git/url "https://github.com/clojure/clojurescript"
          :git/tag "r1.11.60"

test/codes/clj/docs/extractor/datalevin_test.clj

@@ -46,3 +46,32 @@
         (d/close conn)))
 
     (util/delete-files dir)))
+
+(comment
+  ; tests with generated database
+  (let [conn (d/get-conn "target/docs-db" datalevin/db-schemas)
+        db (d/db conn)
+        result (doall (d/q '[:find (pull ?e [*]) ?a ?v
+                             :in $ ?q
+                             :where
+                             [(fulltext $ ?q) [[?e ?a ?v]]]]
+                           db
+                           "assoc"))]
+    (d/close conn)
+    result)
+  ; tests with temporary database
+  (let [db (-> (d/empty-db "/tmp/mydb"
+                           {:text {:db/valueType :db.type/string
+                                   :db/fulltext  true}})
+               (d/db-with
+                [{:db/id 1 :text "assoc!"}
+                 {:db/id 2 :text "assoc"}
+                 {:db/id 3 :text "assoc-in"}
+                 {:db/id 4 :text "assoc-dom"}
+                 {:db/id 5 :text "assoc-meta"}
+                 {:db/id 6 :text "associative?"}]))]
+    (d/q '[:find (pull ?e [*])
+           :in $ ?q
+           :where [(fulltext $ ?q) [[?e ?a ?v]]]]
+         db
+         "assoc")))