;; Create some tickets
(tick '("create" "--type" "defect" "--summary" "Ticket 1" "--body" "1"))
(tick '("create" "--type" "defect" "--summary" "Ticket 2" "--body" "2"))
(tick '("create" "--type" "defect" "--summary" "Ticket 3" "--body" "3"))

(define (test-query query)
  ;; Just verify that the query can actually be evaluated.  It must
  ;; produce _some_ result, so make sure the inputs for the query make
  ;; it something according to the contents of the database.
  (test-assert query (tick `("query" ,query))))

(test-begin "query")

(for-each
 test-query
 '("(member reporter (list me))"
   "(let ((real-me \"foo\")) (member reporter (list real-me)))"
   "(begin (+ 2 3) (let ((real-me \"foo\")) (member reporter (list real-me))))"
   ))

(test-end "query")

(test-exit)