From 0e1a06ac85f6b926327963c8cd1b8b95e0f7d5ba Mon Sep 17 00:00:00 2001
From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 29 Dec 2021 16:09:22 +0100
Subject: Make multi-test-files-busy shorter
---
test/lisp/emacs-lisp/multisession-tests.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
(limited to 'test/lisp/emacs-lisp/multisession-tests.el')
diff --git a/test/lisp/emacs-lisp/multisession-tests.el b/test/lisp/emacs-lisp/multisession-tests.el
index 6618699c4df..57ca420488e 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
--
cgit v1.2.3