26 lines
774 B
Clojure
26 lines
774 B
Clojure
|
(ns datalog.unparser-test
|
||
|
|
(:require [datalog.unparser :refer [unparse]]
|
||
|
|
[datalog.parser :refer [parse]]
|
||
|
|
[clojure.test :refer [deftest testing is] :as test])
|
||
|
|
(:use [datalog.unparser]))
|
||
|
|
|
||
|
|
(let [q '[:find (sum ?balance-before) ?balance-before
|
||
|
|
:in $before $after $txn $txs
|
||
|
|
:where
|
||
|
|
[(= ?balance-before 42)]]]
|
||
|
|
(deftest unparse-roundtrip-test
|
||
|
|
(testing "Datahike query unparsing."
|
||
|
|
(is (= q (unparse (parse q)))))))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
(comment ;; TODO
|
||
|
|
(let [q '[:find ?foo ?baz
|
||
|
|
:in $before $after
|
||
|
|
:where
|
||
|
|
[(= ?balance-before 42)]
|
||
|
|
(not [?foo :bar ?baz])]]
|
||
|
|
(deftest unparse-roundtrip-test
|
||
|
|
(testing "Datahike query unparsing."
|
||
|
|
(is (= q (unparse (parse q))))))))
|