;;; spine-edit-test.el — ERT tests for spine-edit functions

(require 'ert)
(require 'cl-lib)

(setq spine-skip-server-start t)
(setq spine-org-file (expand-file-name "test-edit-temp.org"
                                       (file-name-directory
                                        (directory-file-name
                                         (file-name-directory load-file-name)))))
(load-file (expand-file-name "../spine.el"
                             (file-name-directory load-file-name)))

(defun spine-edit-test--setup ()
  "Create a test Org file with one shelf and one book."
  (with-temp-file spine-org-file
    (insert "* Fiction\n** WANT Edit Test Book\n:PROPERTIES:\n:AUTHOR:  Test Author\n:ID:      test-0001\n:END:\n"))
  t)

(defun spine-edit-test--cleanup ()
  "Remove the test Org file."
  (ignore-errors (delete-file spine-org-file)))

(ert-deftest spine-add-note-appends ()
  "spine-add-note appends a note with date and text."
  (spine-edit-test--cleanup)
  (unwind-protect
      (progn
        (spine-edit-test--setup)
        (let* ((books (spine-books))
               (book (car books))
               (id (plist-get book :id)))
          (spine-add-note id "Great book!" "2026-06-21")
          (let ((updated (cl-find id (spine-books) :key (lambda (b) (plist-get b :id)) :test #'equal)))
            (should updated)
            (let ((notes (plist-get updated :notes)))
              (should notes)
              (should (equal (caar notes) "2026-06-21"))
              (should (equal (cadar notes) "Great book!"))))))
    (spine-edit-test--cleanup)))

(ert-deftest spine-add-note-default-date ()
  "spine-add-note uses today's date when none provided."
  (spine-edit-test--cleanup)
  (unwind-protect
      (progn
        (spine-edit-test--setup)
        (let* ((books (spine-books))
               (book (car books))
               (id (plist-get book :id))
               (today (format-time-string "%Y-%m-%d")))
          (spine-add-note id "Note without date")
          (let ((updated (cl-find id (spine-books) :key (lambda (b) (plist-get b :id)) :test #'equal)))
            (should updated)
            (let ((notes (plist-get updated :notes)))
              (should notes)
              (should (equal (caar notes) today))
              (should (equal (cadar notes) "Note without date"))))))
    (spine-edit-test--cleanup)))

(ert-deftest spine-set-rating-sets-rating ()
  "spine-set-rating sets the RATING property."
  (spine-edit-test--cleanup)
  (unwind-protect
      (progn
        (spine-edit-test--setup)
        (let* ((books (spine-books))
               (book (car books))
               (id (plist-get book :id)))
          (spine-set-rating id "4")
          (let ((updated (cl-find id (spine-books) :key (lambda (b) (plist-get b :id)) :test #'equal)))
            (should updated)
            (should (equal (plist-get updated :rating) "4")))))
    (spine-edit-test--cleanup)))

(ert-deftest spine-edit-model-actions-include-note-and-rating ()
  "Selected book shows Add note and Set rating actions."
  (spine-edit-test--cleanup)
  (unwind-protect
      (progn
        (spine-edit-test--setup)
        (let* ((books (spine-books))
               (book (car books))
               (id (plist-get book :id))
               (model (spine-index-model books nil id))
               (minibuffer (ht-get model "minibuffer")))
          (should minibuffer)
          (let ((actions (ht-get minibuffer "actions")))
            (should (= (length actions) 2))
            (should (equal (ht-get (nth 0 actions) "label") "Add note"))
            (should (equal (ht-get (nth 1 actions) "label") "Set rating")))))
    (spine-edit-test--cleanup)))

(ert-deftest spine-edit-model-no-actions-when-no-selection ()
  "No minibuffer actions when no book is selected."
  (spine-edit-test--cleanup)
  (unwind-protect
      (progn
        (spine-edit-test--setup)
        (let* ((books (spine-books))
               (model (spine-index-model books nil nil)))
          (should-not (ht-get model "minibuffer"))))
    (spine-edit-test--cleanup)))