branch: elpa/julia-mode
commit c19d10efeecfb2ec7693c9be94a4bee6afcfc7df
Merge: df79de474a 0f1f8f57e4
Author: Tamas K. Papp <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #208 from tpapp/tp/ci-add-emacs-29
add 29.x Emacs versions to CI matrix
---
.github/workflows/CI.yml | 3 +++
julia-mode-tests.el | 40 ++++++++++++++++++++++++----------------
2 files changed, 27 insertions(+), 16 deletions(-)
diff --git a/.github/workflows/CI.yml b/.github/workflows/CI.yml
index 7e419b8219..72fcde1a53 100644
--- a/.github/workflows/CI.yml
+++ b/.github/workflows/CI.yml
@@ -24,6 +24,9 @@ jobs:
- 27.2
- 28.1
- 28.2
+ - 29.1
+ - 29.2
+ - 29.3
ignore_warnings:
- true
# NOTE commented out because failure notifications are a distraction
diff --git a/julia-mode-tests.el b/julia-mode-tests.el
index 24eca8bf7f..45db3c7810 100644
--- a/julia-mode-tests.el
+++ b/julia-mode-tests.el
@@ -64,28 +64,36 @@
"Assert that TEXT at position POS gets font-locked with FACE in
`julia-mode'."
`(should (eq ,face (julia--get-font-lock ,text ,pos))))
+(defun julia--should-move-point-helper (text fun from to &optional end arg)
+ "Takes the same arguments as `julia--should-move-point', returns a cons of
the expected and the actual point."
+ (with-temp-buffer
+ (julia-mode)
+ (insert text)
+ (indent-region (point-min) (point-max))
+ (goto-char (point-min))
+ (if (stringp from)
+ (re-search-forward from)
+ (goto-char from))
+ (funcall fun arg)
+ (let ((actual-to (point))
+ (expected-to
+ (if (stringp to)
+ (progn (goto-char (point-min))
+ (re-search-forward to)
+ (if end (goto-char (match-end 0))
+ (goto-char (match-beginning 0))
+ (point-at-bol)))
+ to)))
+ (cons expected-to actual-to))))
+
(defmacro julia--should-move-point (text fun from to &optional end arg)
"With TEXT in `julia-mode', after calling FUN, the point should move FROM\
to TO. If FROM is a string, move the point to matching string before calling
function FUN. If TO is a string, match resulting point to point a beginning of
matching line or end of match if END is non-nil. Optional ARG is passed to
FUN."
(declare (indent defun))
- `(with-temp-buffer
- (julia-mode)
- (insert ,text)
- (indent-region (point-min) (point-max))
- (goto-char (point-min))
- (if (stringp ,from)
- (re-search-forward ,from)
- (goto-char ,from))
- (funcall ,fun ,arg)
- (should (eq (point) (if (stringp ,to)
- (progn (goto-char (point-min))
- (re-search-forward ,to)
- (if ,end (goto-char (match-end 0))
- (goto-char (match-beginning 0))
- (point-at-bol)))
- ,to)))))
+ `(let ((positions (julia--should-move-point-helper ,text ,fun ,from ,to ,end
,arg)))
+ (should (eq (car positions) (cdr positions)))))
;;; indent tests
