query-test-cases.clj

(comment
  ;;;; Non-recursive queries

  ;; Regular property
  (s/conform ::query '[a])
  (s/conform ::query '[a b])
  (s/conform ::query '[a b c])

  ;; Link property
  (s/conform ::query '[[a _]])
  (s/conform ::query '[[a _] [b 1]])
  (s/conform ::query '[[a _] [b 1] [c :x]])

  ;; Join with property source
  (s/conform ::query '[{a [b]}])
  (s/conform ::query '[{a [b c]}])
  (s/conform ::query '[{a [b c]} d])
  (s/conform ::query '[{a [b c]} {d [e f]}])
  (s/conform ::query '[{a ...}])
  (s/conform ::query '[{a 5}])
  (s/conform ::query '[{a User}])

  ;; Join with link source
  (s/conform ::query '[{[a _] [b]}])
  (s/conform ::query '[{[a 1] [b c]}])
  (s/conform ::query '[{[a :x] [b c d]}])

  ;; Properties
  (s/conform ::query '[a [b]])
  (s/conform ::query '[a [b c]])
  (s/conform ::query '[a [b c] d])
  (s/conform ::query '[a [b c] d [e f]])

  ;; Aliased property
  (s/conform ::query '[a :as b])
  (s/conform ::query '[a :as b c :as d])

  ;; Aliased link
  (s/conform ::query '[[a _] :as b])
  (s/conform ::query '[[a 1] :as b])
  (s/conform ::query '[[a :x] :as b])
  (s/conform ::query '[[a _] :as b [c _] :as d])

  ;; Aliased join
  (s/conform ::query '[{a [b]} :as c])
  (s/conform ::query '[{a [b c]} :as d {e [f g]} :as h])

  ;; Aliased properties
  (s/conform ::query '[a [b :as c]])
  (s/conform ::query '[a [b :as c d :as e]])

  ;; Parameterization
  (s/conform ::query '[(a {b c})])
  (s/conform ::query '[(a {b c d e})])

  ;;;; Recursive queries

  ;; Join with sub-joins
  (s/conform ::query '[{users [db [id]
                               user [name]
                               {friends [db [id]
                                         user [name]]}]}])
  (s/conform ::query '[{users [{friends [{friends [db [id]]}]}]}])

  ;; Join with sub-links
  (s/conform ::query '[{users [db [id] [current-user _]]}])
  (s/conform ::query '[{users [user [name]
                               {[current-user _] [user [name]]}]}])

  ;; Join with sub-aliases
  (s/conform ::query '[{[user 1] [db [id :as db-id]
                                  name :as nm]}]))