branch: externals/hyperbole
commit 27b4413d5873e3ff3eb56f18f4982df447349a03
Author: bw <r...@gnu.org>
Commit: bw <r...@gnu.org>
hyrolo-test--expand-path-list): Expand matching filename.
---
ChangeLog | 3 +++
test/hyrolo-tests.el | 5 +++--
2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 9911a9707b..2190b30c43 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
2025-02-19 Bob Weiner <r...@gnu.org>
+* test/hyrolo-tests.el (hyrolo-test--expand-path-list): Expand matching
+ filename.
+
* hyrolo.el (hyrolo-expand-path-list): Use default "~/.rolo.org" when it
exists and is readable. Fixes gh#rswgnu/hyperbole/672 and bug#76424.
(hyrolo-get-file-list): Return a default rolo file when `hyrolo-
diff --git a/test/hyrolo-tests.el b/test/hyrolo-tests.el
index a1b7980d3d..ef7b8455ea 100644
--- a/test/hyrolo-tests.el
+++ b/test/hyrolo-tests.el
@@ -3,7 +3,7 @@
;; Author: Mats Lidell <ma...@gnu.org>
;;
;; Orig-Date: 19-Jun-21 at 22:42:00
-;; Last-Mod: 21-Jan-25 at 17:04:35 by Mats Lidell
+;; Last-Mod: 19-Feb-25 at 21:08:39 by Bob Weiner
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -1678,7 +1678,8 @@ match
(ert-deftest hyrolo-test--expand-path-list ()
"Verify `hyrolo-expand-path-list'."
- (should (equal (hyrolo-expand-path-list nil) '("~/.rolo.otl")))
+ (should (equal (hyrolo-expand-path-list nil)
+ (list (expand-file-name "~/.rolo.otl"))))
(let ((bbdb-file nil))
(mocklet (((hpath:expand-list
'("/file1")
