;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2017 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; ;;; GNU Guix is free software; you can redistribute it and/or modify it ;;; under the terms of the GNU General Public License as published by ;;; the Free Software Foundation; either version 3 of the License, or (at ;;; your option) any later version. ;;; ;;; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see . (define-module (test-workers) #:use-module (guix workers) #:use-module (ice-9 threads) #:use-module (srfi srfi-64)) (test-begin "workers") (test-equal "enqueue" 4242 (let* ((pool (make-pool)) (result 0) (1+! (let ((lock (make-mutex))) (lambda () (with-mutex lock (set! result (+ result 1))))))) (let loop ((i 4242)) (unless (zero? i) (pool-enqueue! pool 1+!) (loop (- i 1)))) (let poll () (unless (pool-idle? pool) (pk 'busy result) (sleep 1) (poll))) result)) ;; Same as above, but throw exceptions within the workers and make sure they ;; remain alive. (test-equal "exceptions" 4242 (let* ((pool (make-pool 10)) (result 0) (1+! (let ((lock (make-mutex))) (lambda () (with-mutex lock (set! result (+ result 1))))))) (let loop ((i 10)) (unless (zero? i) (pool-enqueue! pool (lambda () (throw 'whatever))) (loop (- i 1)))) (let loop ((i 4242)) (unless (zero? i) (pool-enqueue! pool 1+!) (loop (- i 1)))) (let poll () (unless (pool-idle? pool) (pk 'busy result) (sleep 1) (poll))) result)) (test-end) f9173'>tests/crate.scm
nu/packages/ntp.scm?id=cee3d7136b18d322ba1b1aa6b1d4ec4217092fa1&showmsg=1'>Expand)
AgeCommit message (Expand)Author
Author
2018-08-17gnu: ntp: Update to 4.2.8p12 [fix CVE-2018-12327]....* gnu/packages/ntp.scm (ntp): Update to 4.2.8p12. Tobias Geerinckx-Rice
2018-06-30gnu: tlsdate: Bump COMPILE_DATE....* gnu/packages/ntp.scm (tlsdate)[arguments]: Set COMPILE_DATE to 2018-06-28. Tobias Geerinckx-Rice
2018-06-29gnu: tlsdate: Return #t from phases....* gnu/packages/ntp.scm (tlsdate)[arguments]: Substitute INVOKE for SYSTEM*. Tobias Geerinckx-Rice
2018-04-11gnu: tlsdate: Fix compilation on aarch64-linux-gnu....* gnu/packages/ntp.scm (tlsdate)[arguments]: Add #:configure-flags. Ludovic Courtès
2018-03-28gnu: ntp: Update to 4.2.8p11 [security-fixes]....Fixes CVE-2016-1549 and CVE-2018-{7170,7182,7183,7184,7185}. * gnu/packages/ntp.scm (ntp): Update to 4.2.8p11. Leo Famulari
2018-03-05services: Add openntpd service....* gnu/packages/ntp.scm (openntpd)[arguments]: Add 'configure-flags to set openntpd daemon's user and localstatedir. Add a custom phase to not try to create said directory at install time. * gnu/services/networking.scm (<openntpd-configuration>): New record type. (openntpd-shepherd-service, openntpd-service-activation): New procedures. (openntpd-service-type): New variable. * doc/guix.texi (Networking Services): Add openntpd documentation. Efraim Flashner
2017-11-27gnu: openntpd: Enable use of TLS-based time constraints....* gnu/packages/ntp.scm (openntpd)[inputs]: Add libressl. Leo Famulari
2017-11-26gnu: openntpd: Update to 6.2p3....* gnu/packages/ntp.scm (openntpd): Update to 6.2p3. Efraim Flashner
2017-09-24gnu: openntpd: Update to 6.2p2....* gnu/packages/ntp.scm (openntpd): Update to 6.2p2. Efraim Flashner