[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 0e1a06ac85 3/3: Make multi-test-files-busy shorter
|
From: |
Lars Ingebrigtsen |
|
Subject: |
master 0e1a06ac85 3/3: Make multi-test-files-busy shorter |
|
Date: |
Wed, 29 Dec 2021 10:09:42 -0500 (EST) |
branch: master
commit 0e1a06ac85f6b926327963c8cd1b8b95e0f7d5ba
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Make multi-test-files-busy shorter
---
test/lisp/emacs-lisp/multisession-tests.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/test/lisp/emacs-lisp/multisession-tests.el
b/test/lisp/emacs-lisp/multisession-tests.el
index 6618699c4d..57ca420488 100644
--- a/test/lisp/emacs-lisp/multisession-tests.el
+++ b/test/lisp/emacs-lisp/multisession-tests.el
@@ -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