(test-begin "comment")

(tick '("create" "--type" "defect" "--summary" "hello" "--body" "Comment me"))

(let ((last-ticket (get-last-modified-ticket)))
  (tick `("comment" ,last-ticket "--comment" "hello again"))

  (let ((last-comment (tick `("show" ,last-ticket))))
    (test-assert "Comment ticket"
                 (string-suffix? "hello again\n" last-comment))

    (test-assert "Check that empty comments don't get stored"
                 (begin
                   (tick `("comment" ,last-ticket "--comment" ""))
                   (string-suffix? "hello again\n" last-comment)))))

(test-end "comment")

(test-exit)