;;; ss-capture-tests.el --- Tests for ss-capture -*- lexical-binding: t; -*-

;;; Commentary:

;; Focused ERT coverage for journal capture structure helpers.

;;; Code:

(add-to-list 'load-path (expand-file-name "../lisp" (file-name-directory load-file-name)))

(require 'cl-lib)
(require 'ert)
(require 'ss-capture)
(require 'ss-org)

(ert-deftest ss-jump-back-restores-previous-location-and-enables-forward ()
  (let ((ss-navigation-back-stack nil)
        (ss-navigation-forward-stack nil)
        (buffer-a (generate-new-buffer " *ss-nav-a*"))
        (buffer-b (generate-new-buffer " *ss-nav-b*")))
    (unwind-protect
        (save-window-excursion
          (with-current-buffer buffer-a
            (insert "alpha")
            (goto-char 3))
          (with-current-buffer buffer-b
            (insert "bravo")
            (goto-char 5))
          (switch-to-buffer buffer-a)
          (ss-navigation-push-current-location)
          (switch-to-buffer buffer-b)
          (should (ss-jump-back))
          (should (eq (current-buffer) buffer-a))
          (should (= (point) 3))
          (should (ss-jump-forward))
          (should (eq (current-buffer) buffer-b))
          (should (= (point) 5)))
      (kill-buffer buffer-a)
      (kill-buffer buffer-b))))

(ert-deftest ss-navigation-push-current-location-clears-forward-after-back ()
  (let ((ss-navigation-back-stack nil)
        (ss-navigation-forward-stack nil)
        (buffer-a (generate-new-buffer " *ss-nav-a*"))
        (buffer-b (generate-new-buffer " *ss-nav-b*")))
    (unwind-protect
        (save-window-excursion
          (with-current-buffer buffer-a
            (insert "alpha")
            (goto-char 2))
          (with-current-buffer buffer-b
            (insert "bravo")
            (goto-char 4))
          (switch-to-buffer buffer-a)
          (ss-navigation-push-current-location)
          (switch-to-buffer buffer-b)
          (should (ss-jump-back))
          (should ss-navigation-forward-stack)
          (ss-navigation-push-current-location)
          (should-not ss-navigation-forward-stack))
      (kill-buffer buffer-a)
      (kill-buffer buffer-b))))

(ert-deftest ss-navigation-record-jump-skips-noop-movements ()
  (let ((ss-navigation-back-stack nil)
        (ss-navigation-forward-stack nil))
    (with-temp-buffer
      (switch-to-buffer (current-buffer))
      (insert "alpha")
      (goto-char 2)
      (ss-navigation--record-jump (lambda () nil))
      (should-not ss-navigation-back-stack)
      (should-not ss-navigation-forward-stack))))

(ert-deftest ss-journal-ensure-day-sections-adds-all-standard-sections ()
  (with-temp-buffer
    (org-mode)
    (insert "#+title: Journal\n"
            "#+startup: overview\n\n"
            "* 2026\n"
            "** 2026-04-08 Wednesday\n"
            "*** Tasks\n"
            "**** TODO Existing\n\n"
            "** 2026-04-09 Thursday\n")
    (goto-char (point-min))
    (re-search-forward "^\\*\\* 2026-04-09 Thursday$")
    (goto-char (match-beginning 0))
    (ss-journal-ensure-day-sections)
    (should (string-match-p
             (regexp-quote
              "** 2026-04-09 Thursday\n*** Tasks\n*** Notes\n*** Meetings\n")
             (buffer-string)))))

(ert-deftest ss-open-journal-narrows-to-today-when-entry-exists ()
  (let* ((file (make-temp-file "ss-journal" nil ".org"))
         (ss-journal-file file)
         (test-time (encode-time 0 0 12 9 4 2026)))
    (unwind-protect
        (cl-letf (((symbol-function 'current-time)
                   (lambda ()
                     test-time)))
          (with-temp-file file
            (insert "#+title: Journal\n"
                    "* 2026\n"
                    "** 2026-04-09 Thursday\n"
                    "*** Notes\n"))
          (ss-open-journal)
          (should (buffer-narrowed-p))
          (should (equal (org-get-outline-path t)
                         '("2026" "2026-04-09 Thursday")))
          (should (looking-at-p "^\\*\\* 2026-04-09 Thursday$")))
      (when-let ((buffer (get-file-buffer file)))
        (kill-buffer buffer))
      (when (file-exists-p file)
        (delete-file file)))))

(ert-deftest ss-open-journal-reveals-folded-today-subtree ()
  (let* ((file (make-temp-file "ss-journal" nil ".org"))
         (ss-journal-file file)
         (test-time (encode-time 0 0 12 9 4 2026)))
    (unwind-protect
        (cl-letf (((symbol-function 'current-time)
                   (lambda ()
                     test-time)))
          (with-temp-file file
            (insert "#+title: Journal\n"
                    "* 2026\n"
                    "** 2026-04-09 Thursday\n"
                    "*** Notes\n"
                    "Body\n"))
          (with-current-buffer (find-file-noselect file)
            (org-overview))
          (ss-open-journal)
          (should (buffer-narrowed-p))
          (should-not
           (save-excursion
             (goto-char (point-min))
             (re-search-forward "^\\*\\*\\* Notes$" nil t)
             (invisible-p (point))))
          (should-not
           (save-excursion
             (goto-char (point-min))
             (re-search-forward "^Body$" nil t)
             (invisible-p (point)))))
      (when-let ((buffer (get-file-buffer file)))
        (kill-buffer buffer))
      (when (file-exists-p file)
        (delete-file file)))))

(ert-deftest ss-open-journal-creates-missing-today-entry-with-standard-sections ()
  (let* ((file (make-temp-file "ss-journal" nil ".org"))
         (ss-journal-file file)
         (test-time (encode-time 0 0 12 9 4 2026)))
    (unwind-protect
        (cl-letf (((symbol-function 'current-time)
                   (lambda ()
                     test-time)))
          (with-temp-file file
            (insert "#+title: Journal\n"
                    "* 2026\n"
                    "** 2026-04-08 Wednesday\n"
                    "*** Notes\n"))
          (ss-open-journal)
          (should (buffer-narrowed-p))
          (should (equal (org-get-outline-path t)
                         '("2026" "2026-04-09 Thursday")))
          (should (string-match-p
                   (regexp-quote
                    "** 2026-04-09 Thursday\n*** Tasks\n*** Notes\n*** Meetings\n")
                   (buffer-string))))
      (when-let ((buffer (get-file-buffer file)))
        (kill-buffer buffer))
      (when (file-exists-p file)
        (delete-file file)))))

;;; ss-capture-tests.el ends here