mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-05-16 01:50:08 -07:00
Code Issues Projects Releases Wiki Activity

Inter-thread synchronize command-loop vs after entry hook.

Browse source 
* test/lisp/ses-tests.el (ses-tests--mutex)
(ses-tests--condition, ses-tests--done): New object for
inter-thread synchronisation.
(ses-tests-snake-move): Add condition notification.
(ses-tests-snake-move-after-entry): Add condition wait.
This commit is contained in:
Vincent Belaïche 2026-03-29 14:58:50 +02:00
parent 9d7e7ca715
commit 1eb56441a2
1 changed files with 17 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

19
test/lisp/ses-tests.el
View file

@ -43,6 +43,14 @@
(defvar B2)
(defvar ses--toto))
;; Inter-thread synchronisation to wait for after entry hook completion
;; ----------------------------------------------------------------------
(defvar ses-tests--mutex (make-mutex "ses-tests"))
(defvar ses-tests--condition (make-condition-variable ses-tests--mutex
(mutex-name ses-tests--mutex)))
(defvar ses-tests--done nil)
;; Check no border effects
;; ======================================================================
(defun ses-tests-check-no-border-effect ()
@ -317,7 +325,10 @@ assuming a four columns sheet."
(forward-char count))
(if (= ses-col 0)
(next-line count)
(backward-char count))))
(backward-char count)))
(with-mutex ses-tests--mutex
(setq ses-tests--done t)
(condition-notify ses-tests--condition)))
(ert-deftest ses-tests-snake-move-after-entry ()
"\
@ -339,7 +350,11 @@ has been built as expected.
(dotimes (i 16)
;; fill the SES sheet with snake move
(setq keys (concat (mapconcat #'string (number-to-string i) " ") " RET"))
(ert-play-keys keys)
(with-mutex ses-tests--mutex
(setq ses-tests--done nil)
(ert-play-keys keys)
(while (not ses-tests--done)
(condition-wait ses-tests--condition)))
;; build the snake move test vector
(push i cols)
(when (= (logand i 3) 3); when row is complete