[nongnu] elpa/org-journal ff770e884c 5/7: Merge branch 'fix-broken-tests' into fix-merge-420

[ELPA Syncer]

branch: elpa/org-journal
commit ff770e884c47ccfe8458b1c9a8b681f46d083df2
Merge: eab8f64251 ae339d9024
Author: Jason May <jmay@pobox.com>
Commit: Jason May <jmay@pobox.com>

    Merge branch 'fix-broken-tests' into fix-merge-420
---
 tests/org-journal-test.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/tests/org-journal-test.el b/tests/org-journal-test.el
index 8ab3ab861f..090f64eca7 100644
--- a/tests/org-journal-test.el
+++ b/tests/org-journal-test.el
@@ -227,10 +227,11 @@
         (save-buffer)
         (kill-buffer)
         (let ((message-marker nil))
-          (fset 'message (lambda (x 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))
-          ))))
+          (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))
+            )))))
 
 (ert-deftest org-journal-search-build-file-list-test ()
   "Test for `org-journal--search-build-file-list'."