branch: externals/hyperbole
commit 5ea66a66cf676ee9fbf33310784255a6cbd9df99
Author: Mats Lidell <[email protected]>
Commit: GitHub <[email protected]>
Change test case name and track current behavior with extra quotes (#814)
---
ChangeLog | 6 ++++++
test/hpath-tests.el | 25 ++++++++++++++-----------
2 files changed, 20 insertions(+), 11 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 25fc917edb..cac4135a37 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2025-11-17 Mats Lidell <[email protected]>
+
+* test/hpath-tests.el
+ (hpath:path-at-point-with-unbalanced-quote-on-same-line):
+ Rename test. Track current behavior.
+
2025-11-16 Mats Lidell <[email protected]>
* test/hpath-tests.el (hpath--hpath:delimited-possible-path-in-ls-R):
diff --git a/test/hpath-tests.el b/test/hpath-tests.el
index 90acf628f0..e8f808d37a 100644
--- a/test/hpath-tests.el
+++ b/test/hpath-tests.el
@@ -3,7 +3,7 @@
;; Author: Mats Lidell <[email protected]>
;;
;; Orig-Date: 28-Feb-21 at 23:26:00
-;; Last-Mod: 16-Nov-25 at 23:23:37 by Mats Lidell
+;; Last-Mod: 17-Nov-25 at 16:40:58 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -126,16 +126,19 @@
(goto-char 7)
(should (not (hpath:at-p)))))
-(ert-deftest hpath:path-at-point-finds-path-when-unbalanced-quote-on-same-line
()
- "Find path at point finds a path even with unbalanced quotes on same line."
- :expected-result :failed
- (dolist (v '((" \"/tmp\" ") ; Reference case: no quotes
- (" \"/tmp\" \"") ; Quote after: Works
- ("\" \"/tmp\" "))) ; Quote before: FAILS
- (with-temp-buffer
- (insert (format "%s\n" v))
- (goto-char 6)
- (should (string= (hpath:at-p nil t) "/tmp")))))
+(ert-deftest hpath:path-at-point-with-unbalanced-quote-on-same-line ()
+ "Verify `hpath:at-p' behavior when there is an unbalanced quotes on same
line."
+ (dolist (v '((" \"/tmp\" " . t)
+ (" \"/tmp\" \"" . t)
+ ("\" \"/tmp\" " . nil)))
+ (let ((text (car v))
+ (find (cdr v)))
+ (with-temp-buffer
+ (insert (format "%s\n" v))
+ (goto-char 6)
+ (if find
+ (should (string= (hpath:at-p nil t) "/tmp"))
+ (should-not (hpath:at-p nil t)))))))
(ert-deftest hpath:find-exec-shell-cmd-test ()
"Path prefix ! will run pathname as a non windowed program."
