Skip to content

Commit

Permalink
What on earth had I wrote :-)
Browse files Browse the repository at this point in the history
  • Loading branch information
@casch-at
casch-at committed Feb 18, 2024
1 parent 9dca91d commit 7279852
Show file tree
Hide file tree
Showing 3 changed files with 48 additions and 39 deletions.
2 changes: 1 addition & 1 deletion Makefile
View file
Original file line number Diff line number Diff line change
Expand Up @@ -10,7 +10,7 @@ clean:
git clean -Xf

compile:
$(BATCH) -f batch-byte-compile tests/org-journal-test.el org-journal.el
$(BATCH) -f batch-byte-compile org-journal.el

gen-autoloads:
$(BATCH) \
Expand Down
1 change: 1 addition & 0 deletions org-journal.el
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1449,6 +1449,7 @@ is nil or avoid switching when NOSELECT is non-nil."
(setq point (org-journal--search-forward-created
(list (nth 4 time) (nth 3 time) (nth 5 time))
nil t))))))

(progn
;; Use `find-file-noselect' instead of `view-file' as it does not respect `auto-mode-alist'
(with-current-buffer buf
Expand Down
84 changes: 46 additions & 38 deletions tests/org-journal-test.el
View file
Original file line number Diff line number Diff line change
Expand Up @@ -52,6 +52,17 @@
(make-symbolic-link org-journal-dir-test (concat org-journal-dir-test "-link") t)
(org-journal-invalidate-cache))

(defun org-journal-buffer-content (&optional no-properties ignore-leading-whitespaces)
(let ((buffer-content-fn (if no-properties
#'buffer-substring-no-properties
#'buffer-substring)))
(when ignore-leading-whitespaces
(save-excursion
(goto-char (point-min))
(while (re-search-forward "^\\([ \t]+\\)" (point-at-eol) t)
(replace-match "" nil nil))))
(funcall buffer-content-fn (point-min) (point-max))))

(defmacro org-journal-test-macro (&rest body)
"Wrapp a `org-journal' -- `ert'-test with default values."
(declare (indent 1))
Expand Down Expand Up @@ -197,7 +208,9 @@
"Org journal delete empty journal test"
(org-journal-test-macro
(let ((buffer "20181231")
(org-journal-carryover-delete-empty-journal 'always))
(org-journal-carryover-delete-empty-journal 'always)
(inhibit-message t))

;; Test that journal file gets dumped, after carryover
(with-temp-buffer
(org-journal-mode)
Expand All @@ -208,7 +221,8 @@
(org-journal-new-entry nil)
(save-buffer)
(kill-buffer)
(should (not (file-exists-p (org-journal--get-entry-path (encode-time 0 0 0 31 12 2018)))))
(should (equal "No journal entry for this date."
(org-journal-read-or-display-entry (encode-time 0 0 0 31 12 2018) 'noselect)))

;; Test even single entry gets deleted, relevant for weekly, monthly and yearly journal files.
(org-journal-dir-test-setup)
Expand All @@ -217,21 +231,18 @@
(org-journal-mode)
(insert "* Wednesday, 01/01/19\n")
(org-set-property "CREATED" "20190101")
(insert "** TODO a\n")
(insert "** 15:00 a\n")
(insert "* Wednesday, 01/02/19\n")
(org-set-property "CREATED" "20190102")
(insert "** TODO a\n")
(write-file (expand-file-name "20190101" org-journal-dir-test))
(kill-buffer "20190101"))

(org-journal-new-entry nil)
(save-buffer)
(kill-buffer)
(let ((message-marker nil))
(cl-letf (((symbol-function 'message)
#'(lambda (x &rest _y) (setq message-marker x))))
(org-journal-read-or-display-entry (encode-time 0 0 0 2 1 2019) 'noselect)
(should (equal "No journal entry for this date." message-marker))
)))))
(should (equal "No journal entry for this date."
(org-journal-read-or-display-entry (encode-time 0 0 0 2 1 2019) 'noselect))))))

(ert-deftest org-journal-search-build-file-list-test ()
"Test for `org-journal--search-build-file-list'."
Expand Down Expand Up @@ -289,7 +300,7 @@
(org-journal-new-entry 4) ;; 4 - no new time entry
(setq new-scheduled-date (with-temp-buffer
(org-insert-time-stamp (current-time))
(buffer-substring-no-properties (point-min) (point-max))))
(org-journal-buffer-content t t)))
(goto-char (point-min))
(search-forward new-scheduled-date)
(search-forward new-scheduled-date))))
Expand Down Expand Up @@ -356,32 +367,29 @@
(insert "Task 2")
;; New today entry should be added at the beginning of the journal file
(org-journal-new-entry 4 new-entry-time)
(should (equal (buffer-substring-no-properties (point-min) (point-max))
(with-temp-buffer
(org-journal-mode)
(insert
(concat
;; Today entry
"* Test header\n"
":PROPERTIES:\n"
(concat
":CREATED: "
(format-time-string org-journal-created-property-timestamp-format new-entry-time)
"\n")
":END:\n"

;; Scheduled entries
"* Test header\n"
":PROPERTIES:\n"
(concat
":CREATED: "
(format-time-string org-journal-created-property-timestamp-format scheduled-entry-time)
"\n")
":END:\n"
"** TODO Task 1\n"
scheduled-string
"\n"
;; (format-time-string " SCHEDULED: <%F %a>\n" )
"** TODO Task 2\n"
scheduled-string))
(buffer-substring-no-properties (point-min) (point-max)))))))))
(should (equal (org-journal-buffer-content t t)
(concat
;; Today entry
"* Test header\n"
":PROPERTIES:\n"
(concat
":CREATED: "
(format-time-string org-journal-created-property-timestamp-format new-entry-time)
"\n")
":END:\n"

;; Scheduled entries
"* Test header\n"
":PROPERTIES:\n"
(concat
":CREATED: "
(format-time-string org-journal-created-property-timestamp-format scheduled-entry-time)
"\n")
":END:\n"
"** TODO Task 1\n"
scheduled-string
"\n"
;; (format-time-string " SCHEDULED: <%F %a>\n" )
"** TODO Task 2\n"
scheduled-string)))))))

0 comments on commit 7279852

Please sign in to comment.