[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/04: gnu: sbcl-bordeaux-threads: Adjust threaded tests timeout.
From: |
guix-commits |
Subject: |
04/04: gnu: sbcl-bordeaux-threads: Adjust threaded tests timeout. |
Date: |
Sun, 4 Sep 2022 03:29:03 -0400 (EDT) |
efraim pushed a commit to branch staging
in repository guix.
commit 7f8ee9e0beb8a930235bcd93180ccf64d299882f
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Sun Sep 4 10:02:40 2022 +0300
gnu: sbcl-bordeaux-threads: Adjust threaded tests timeout.
* gnu/packages/lisp-xyz.scm (sbcl-bordeaux-threads)[arguments]: Add
phase to slightly lengthen sleep in threaded tests.
---
gnu/packages/lisp-xyz.scm | 11 ++++++++++-
1 file changed, 10 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/lisp-xyz.scm b/gnu/packages/lisp-xyz.scm
index 2170a9e267..95178289c3 100644
--- a/gnu/packages/lisp-xyz.scm
+++ b/gnu/packages/lisp-xyz.scm
@@ -6,7 +6,7 @@
;;; Copyright © 2016, 2017 Nikita <nikita@n0.is>
;;; Copyright © 2016, 2017 Andy Patterson <ajpatter@uwaterloo.ca>
;;; Copyright © 2017, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
-;;; Copyright © 2017, 2018, 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2017, 2018-2020, 2022 Efraim Flashner <efraim@flashner.co.il>
;;; Copyright © 2017, 2019 Tobias Geerinckx-Rice <me@tobias.gr>
;;; Copyright © 2018 Benjamin Slade <slade@jnanam.net>
;;; Copyright © 2018 Alex Vong <alexvong1995@gmail.com>
@@ -442,6 +442,15 @@ timeouts.")
(inputs (list sbcl-alexandria))
(native-inputs (list sbcl-fiveam))
(build-system asdf-build-system/sbcl)
+ (arguments
+ (list
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-after 'unpack 'adjust-test-sleep
+ (lambda _
+ ;; 0.001 is too short for some slower machines.
+ (substitute* "test/bordeaux-threads-test.lisp"
+ (("sleep 0\\.001") "sleep 0.002")))))))
(synopsis "Portable shared-state concurrency library for Common Lisp")
(description "BORDEAUX-THREADS is a proposed standard for a minimal
MP/Threading interface. It is similar to the CLIM-SYS threading and lock