[elpa] externals/hyperbole a45b16f765 3/5: Merge pull request #512 from rswgnu/test-for-org-links-outside-of-org-mode

[ELPA Syncer]

branch: externals/hyperbole
commit a45b16f765b883cafdd532a677505d5929ea719c
Merge: 30541abb14 a60a4dbb4b
Author: Robert Weiner <rsw@gnu.org>
Commit: GitHub <noreply@github.com>

    Merge pull request #512 from rswgnu/test-for-org-links-outside-of-org-mode
    
    Tests for org-links outside of org-mode
---
 ChangeLog              |  6 ++++++
 test/hsys-org-tests.el | 31 ++++++++++++++++++++++++++++++-
 2 files changed, 36 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 0a2d98c4fd..dda1c64dba 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2024-04-08  Mats Lidell  <matsl@gnu.org>
+
+* test/hsys-org-tests.el (hsys-org--org-outside-org-mode-tmp-buffer)
+    (hsys-org--org-outside-org-mode-tmp-file): Tests for org-links outside
+    of org-mode.
+
 2024-04-07  Bob Weiner  <rsw@gnu.org>
 
 * hyrolo.el (hyrolo-consult-grep-paths): Fix handling of zero 'max-matches'
diff --git a/test/hsys-org-tests.el b/test/hsys-org-tests.el
index 9c8a22b3e8..9b905d066c 100644
--- a/test/hsys-org-tests.el
+++ b/test/hsys-org-tests.el
@@ -3,7 +3,7 @@
 ;; Author:       Mats Lidell <matsl@gnu.org>
 ;;
 ;; Orig-Date:    23-Apr-21 at 20:55:00
-;; Last-Mod:     12-Mar-24 at 23:04:29 by Mats Lidell
+;; Last-Mod:      9-Apr-24 at 09:32:53 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -128,6 +128,35 @@
     (font-lock-ensure)
     (should (hsys-org-face-at-p 'org-target))))
 
+(ert-deftest hsys-org--org-outside-org-mode-tmp-buffer ()
+  "Org links in a temp buffer should work.
+This is independent of the setting of `hsys-org-enable-smart-keys'."
+  (let ((browse-url-browser-function nil)) ;; Don't open browser on failure
+      (dolist (v '('unset 'button t nil))
+        (let ((hsys-org-enable-smart-keys v))
+          (with-temp-buffer
+            (insert "[[file:/tmp/abc][file]]\n")
+            (goto-char 6)
+            (mocklet (((org-open-at-point-global) => t))
+              (should (equal hsys-org-enable-smart-keys v)) ; Traceability
+              (should (action-key))))))))
+
+(ert-deftest hsys-org--org-outside-org-mode-tmp-file ()
+  "Org links in a non `org-mode' file should work.
+This is independent of the setting of `hsys-org-enable-smart-keys'."
+  (let ((file (make-temp-file "hypb" nil ".txt" "[[file:/tmp/abc][file]]\n"))
+        (browse-url-browser-function nil)) ;; Don't open browser on failure
+    (unwind-protect
+        (progn
+          (find-file file)
+          (goto-char 6)
+          (dolist (v '('unset 'button t nil))
+            (let ((hsys-org-enable-smart-keys v))
+              (mocklet (((org-open-at-point-global) => t))
+                (should (equal hsys-org-enable-smart-keys v)) ; Traceability
+                (should (action-key))))))
+      (hy-delete-file-and-buffer file))))
+
 (provide 'hsys-org-tests)
 
 ;; This file can't be byte-compiled without the `el-mock' package