;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Ludovic Courtès <ludo@gnu.org>
;;;
;;; 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 <http://www.gnu.org/licenses/>.

(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)
'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/etc?id=f31f1acac2efb4bc6558b604a07b56f826423177&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2017-01-20 21:39:17 +0100'>2017-01-20</span></td><td><a href='/guix/commit/etc?id=830d4c1fcdff7be199e66cd70a5048264b54a151'>etc: indent-code.el: Add indentation info for non-Guix Scheme constructs.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/indent-code.el.in (guix-syntax--scheme-indent): New macro.
Use it.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-01-13 18:49:31 +0100'>2017-01-13</span></td><td><a href='/guix/commit/etc?id=557d9c8d7a843bf06e75b4e1a742654ccf951fa3'>etc: Support indentation of whole files.</a><span class='msg-avail'>...<span class='msg-tooltip'>* etc/indent-package.el.in: Rename to...
* etc/indent-code.el.in: ... this.  Add case for a single argument.
* doc/contributing.texi (Formatting Code): Adjust accordingly.
* configure.ac: Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-01-12 14:56:52 +0100'>2017-01-12</span></td><td><a href='/guix/commit/etc?id=7bb2b10cd01a076d7d5e964ed433e62846042859'>etc: Add 'indent-package.el' script.</a><span class='msg-avail'>...<span class='msg-tooltip'>* configure.ac: Check for 'emacs', substitute 'EMACS', and emit
'etc/indent-package.el'.
* etc/indent-package.el.in: New file.
* doc/contributing.texi (Formatting Code): Mention
'etc/indent-package.el'.
(Submitting Patches): Likewise, and link to the above node.

Co-authored-by: Alex Kost &lt;alezost@gmail.com&gt;
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-01-04 16:27:20 -0500'>2017-01-04</span></td><td><a href='/guix/commit/etc?id=69355e1283d300a663fb639ec426f10f3feb404b'>doc: Add a Git hook that verifies signatures before pushing.</a><span class='msg-avail'>...<span class='msg-tooltip'>* HACKING (Commit Access): Describe the pre-push Git hook.
* etc/git/pre-push: New file.
</span></span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2016-11-24 09:23:11 +0100'>2016-11-24</span></td><td><a href='/guix/commit/etc?id=332d7903f52c2bf3741b04ac2d01cd9018b70800'>Add system start-up files for "guix publish".</a><span class='msg-avail'>...<span class='msg-tooltip'>* .gitignore: add etc/guix-publish.conf and /etc/guix-publish.service.
* etc/guix-publish.conf.in: New file.
* etc/guix-publish.service.in: New file.
* nix/local.mk (etc/guix-%.service, etc/guix-%.conf): Generalized former
  build-rules for by using patterns.
  (nodist_systemdservice_DATA): Add etc/guix-publish.service, update
  comment.
  (nodist_upstartjob_DATA): Add etc/guix-publish.conf, update comment.
* doc/guix.texi (Invoking guix publish): Add description for enabling
  "guix publish" on host distros using the new files.
</span></span></td><td>Hartmut Goebel</td></tr>