daniel/emacs-conf
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

update packages

Browse Source
This commit is contained in:
Daniel Weschke
2025-06-22 17:08:08 +02:00
parent 54e5633369
commit 16a0a6db93
558 changed files with 68349 additions and 26568 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
lisp/polymode/polymode-test-utils.el
View File

@@ -54,6 +54,10 @@ Look into tests/input directory then in samples directory."
if (file-exists-p f) return f)
(error "No file with name '%s' found in '%s'" name default-directory))))
(defun pm-test-running-on-github-p ()
(string= (downcase (or (getenv "GITHUB_ACTIONS") "false")) "true"))
(defun pm-test-matcher (string span-alist matcher &optional dry-run)
(with-temp-buffer
(insert string)
@@ -82,8 +86,8 @@ Look into tests/input directory then in samples directory."
(message ")"))
nil)))
(defmacro pm-test-run-on-string (mode string &rest body)
"Run BODY in a temporary buffer containing STRING in MODE.
(defmacro pm-test-run-on-string (mode string position &rest body)
"Run BODY in a temporary buffer containing STRING in MODE at POSITION.
MODE is a quoted symbol."
(declare (indent 1) (debug (form form body)))
`(let ((*buf* "*pm-test-string-buffer*"))
@@ -98,7 +102,7 @@ MODE is a quoted symbol."
(and (bound-and-true-p syntax-propertize-function)
(not (local-variable-p 'parse-sexp-lookup-properties))
(setq-local parse-sexp-lookup-properties t))
(goto-char (point-min))
(funcall-interactively 'goto-char ,position)
(let ((poly-lock-allow-background-adjustment nil))
(when polymode-mode
;; font-lock not activated in batch mode
@@ -111,7 +115,7 @@ MODE is a quoted symbol."
(defun pm-test-spans (mode string)
(declare (indent 1))
(pm-test-run-on-string mode
string
string 1
(pm-map-over-spans
(lambda (span)
(let ((range0 (pm-span-to-range span)))
@@ -190,7 +194,7 @@ MODE is a quoted symbol."
(smode major-mode)
(stext (buffer-substring-no-properties sbeg send))
;; other buffer
(ref-buf (pm-test-run-on-string smode stext))
(ref-buf (pm-test-run-on-string smode stext 1))
(ref-pos 1))
(when pm-verbose
(message "---- testing %s ----" (pm-format-span span t)))
@@ -243,10 +247,10 @@ MODE is a quoted symbol."
:pos pos
:ref-pos ref-pos
:line (progn (goto-char pos)
(buffer-substring-no-properties (point-at-bol) (point-at-eol)))
(buffer-substring-no-properties (line-beginning-position) (line-end-position)))
:ref-line (with-current-buffer ref-buf
(goto-char ref-pos)
(buffer-substring-no-properties (point-at-bol) (point-at-eol)))
(buffer-substring-no-properties (line-beginning-position) (line-end-position)))
:mode smode))))
;; for the interactive convenience
(switch-to-buffer (current-buffer))
@@ -371,7 +375,7 @@ points."
(goto-char (point-min))
(set-buffer-modified-p nil)
(while (not (eobp))
(let ((orig-line (buffer-substring-no-properties (point-at-eol) (point-at-bol))))
(let ((orig-line (buffer-substring-no-properties (line-end-position) (line-beginning-position))))
(unless (string-match-p "no-indent-test" orig-line)
(undo-boundary)
;; (pm-switch-to-buffer)
@@ -379,12 +383,12 @@ points."
;; (line-number-at-pos) (point) (current-buffer)
;; (syntax-ppss) syntax-propertize--done)
(pm-indent-line-dispatcher)
(unless (equal orig-line (buffer-substring-no-properties (point-at-eol) (point-at-bol)))
(unless (equal orig-line (buffer-substring-no-properties (line-end-position) (line-beginning-position)))
(undo-boundary)
(pm-switch-to-buffer (point))
(ert-fail (list :pos (point) :line (line-number-at-pos)
:mode major-mode
:indent-line (buffer-substring-no-properties (point-at-bol) (point-at-eol)))))))
:indent-line (buffer-substring-no-properties (line-beginning-position) (line-end-position)))))))
(forward-line 1))
(let (points1 points2)
(pm-map-over-spans (lambda (span) (push (/ (+ (nth 1 span) (nth 2 span)) 2) points1)))
@@ -436,10 +440,10 @@ points."
:ref (with-temp-buffer
(insert right)
(goto-char pos)
(buffer-substring-no-properties (point-at-bol) (point-at-eol)))
(buffer-substring-no-properties (line-beginning-position) (line-end-position)))
:new (progn
(goto-char pos)
(buffer-substring-no-properties (point-at-bol) (point-at-eol)))))))))))
(buffer-substring-no-properties (line-beginning-position) (line-end-position)))))))))))
(defmacro pm-test-map-over-modes (mode file)
`(pm-test-run-on-file ,mode ,file