;; Create some tickets
(tick '("create" "--type" "defect" "--summary" "1" "--body" "1"))
(tick '("create" "--type" "defect" "--summary" "2" "--body" "2" "--priority" "major"))
(tick '("create" "--type" "defect" "--summary" "3" "--body" "3" "--status" "accepted"))
(tick '("create" "--type" "defect" "--summary" "4" "--body" "4" "--component" "compiler"))

(test-begin "check-db")
(test-assert "Run check-db"
             (string?
              (let ((out (tick '("check-db"))))
                (print)
                (display out)
                out)))
(test-end "check-db")

(test-exit)