procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make multi-test-files-busy shorter

Browse source
This commit is contained in:
Lars Ingebrigtsen 2021-12-29 16:09:22 +01:00
parent bdd0b071be
commit 0e1a06ac85
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
test/lisp/emacs-lisp/multisession-tests.el
View file

@ -62,7 +62,7 @@
(setq multisession--db nil)))))
(ert-deftest multi-test-sqlite-busy ()
(skip-unless (and t (sqlite-available-p)))
(skip-unless (sqlite-available-p))
(ert-with-temp-file dir
:directory t
(let ((user-init-file "/tmp/foo.el")
@ -136,7 +136,7 @@
(should (= (multisession-value multisession--sfoo) 2)))))
(ert-deftest multi-test-files-busy ()
(skip-unless (and t (sqlite-available-p)))
(skip-unless (sqlite-available-p))
(ert-with-temp-file dir
:directory t
(let ((user-init-file "/tmp/foo.el")
@ -163,14 +163,14 @@
(user-init-file "/tmp/sbar.el"))
(define-multisession-variable multisession--sbar 0
"" :synchronized t)
(dotimes (i 1000)
(dotimes (i 100)
(cl-incf (multisession-value multisession--sbar))))))))
(while (process-live-p proc)
(message "multisession--sbar %s" (multisession-value multisession--sbar))
;;(cl-incf (multisession-value multisession--sbar))
(sleep-for 0.1))
(message "multisession--sbar ends up as %s" (multisession-value multisession--sbar))
(should (< (multisession-value multisession--sbar) 2000)))))
(should (< (multisession-value multisession--sbar) 200)))))
(ert-deftest multi-test-files-some-values ()
(ert-with-temp-file dir