Test that invalid queries involving or throw an exception instead of evaluating to nil

Author: devurandom

test/datascript/test/query_or.cljc

@@ -157,4 +157,12 @@
         (d/q '[:find ?e
                :where (or-join [[?e]]
                         [?e :name "Ivan"])]
-             @test-db))))
+             @test-db)))
+
+  (is (thrown-msg? "???"
+        (d/q '[:find ?e
+               :where
+               [?top :name "Ivan"]
+               [?top :age 10]
+               [(or ?e ?top)]]
+             @test-db))))