(define-module (srfi srfi-64)
  #:export (test-begin ;; must be listed first, since in Kawa (at least) it is "magic".
            test-end test-assert test-eqv test-eq test-equal
            test-approximate test-assert test-error test-apply test-with-runner
            test-match-nth test-match-all test-match-any test-match-name
            test-skip test-expect-fail test-read-eval-string
            test-runner-group-path test-group test-group-with-cleanup
            test-result-ref test-result-set! test-result-clear test-result-remove
            test-result-kind test-passed?
            test-log-to-file
                                                  ; Misc test-runner functions
            test-runner? test-runner-reset test-runner-null
            test-runner-simple test-runner-current test-runner-factory test-runner-get
            test-runner-create test-runner-test-name
            ;; test-runner field setter and getter functions - see %test-record-define:
            test-runner-pass-count test-runner-pass-count!
            test-runner-fail-count test-runner-fail-count!
            test-runner-xpass-count test-runner-xpass-count!
            test-runner-xfail-count test-runner-xfail-count!
            test-runner-skip-count test-runner-skip-count!
            test-runner-group-stack test-runner-group-stack!
            test-runner-on-test-begin test-runner-on-test-begin!
            test-runner-on-test-end test-runner-on-test-end!
            test-runner-on-group-begin test-runner-on-group-begin!
            test-runner-on-group-end test-runner-on-group-end!
            test-runner-on-final test-runner-on-final!
            test-runner-on-bad-count test-runner-on-bad-count!
            test-runner-on-bad-end-name test-runner-on-bad-end-name!
            test-result-alist test-result-alist!
            test-runner-aux-value test-runner-aux-value!
            ;; default/simple call-back functions, used in default test-runner,
            ;; but can be called to construct more complex ones.
            test-on-group-begin-simple test-on-group-end-simple
            test-on-bad-count-simple test-on-bad-end-name-simple
            test-on-final-simple test-on-test-end-simple
            test-on-final-simple))

(cond-expand-provide (current-module) '(srfi-64))

;; Load Per Bothner's original SRFI-64 implementation.
(load-from-path "srfi/srfi-64.upstream.scm")
amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-03-22 12:42:51 +0100'>2020-03-22</span></td><td><a href='/guix/commit/.dir-locals.el?id=041b340da409078951267b6a8c43b27716e6b7ec'>store: Add 'with-build-handler'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2020-03-12 18:32:15 +0100'>2020-03-12</span></td><td><a href='/guix/commit/.dir-locals.el?id=cf2ac04f13d9266c7c8a2ebd2e85ef593231ac9d'>gexp: Add 'with-parameters'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-11-29 15:54:20 +0100'>2019-11-29</span></td><td><a href='/guix/commit/.dir-locals.el?id=55e1dfa4dd189e010c541e3997b65434c702b4a5'>ui: Factorize 'with-profile-lock'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-11-19 10:51:52 +0100'>2019-11-19</span></td><td><a href='/guix/commit/.dir-locals.el?id=6fbd8fde2fad113dbfc90c8b1b55f7ead919a90a'>pull: Acquire a lock for the target profile.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-09-23 10:38:43 +0200'>2019-09-23</span></td><td><a href='/guix/commit/.dir-locals.el?id=873f6f1334ab06a69e768a8aea0054404237542f'>git: Add 'commit-difference'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-06-05 23:10:36 +0200'>2019-06-05</span></td><td><a href='/guix/commit/.dir-locals.el?id=b7178c22bf642919345095aff9e34e02c00d5762'>syscalls: Add 'with-file-lock' macro.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-05-27 22:47:24 +0200'>2019-05-27</span></td><td><a href='/guix/commit/.dir-locals.el?id=66229b04ae0ee05779b93d77900a062b8e0e8770'>publish: Add support for lzip.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2019-03-07 00:00:18 +0100'>2019-03-07</span></td><td><a href='/guix/commit/.dir-locals.el?id=a4678c6ba18d8dbd79d931f80426eebf61be7ebe'>database: Make 'register-items' transactional.</a><span class='msg-avail'>...</span></td><td>Caleb Ristvedt</td></tr>
<tr><td><span title='2019-01-11 12:14:38 +0100'>2019-01-11</span></td><td><a href='/guix/commit/.dir-locals.el?id=7804c45b9ce5a8edd06452d828249e588ae26263'>status: Add 'with-status-verbosity'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-10-19 18:28:57 +0200'>2018-10-19</span></td><td><a href='/guix/commit/.dir-locals.el?id=19c924af4f3726688ca155a905ebf1cb9acdfca2'>tests: Run 'guix pack' tests using the external store.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-09-27 23:21:53 +0200'>2018-09-27</span></td><td><a href='/guix/commit/.dir-locals.el?id=dc0f74e5fc26977a3ee6c4f2aa74a141f4359982'>Add (guix status) and use it for pretty colored output.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-06-01 15:35:32 +0200'>2018-06-01</span></td><td><a href='/guix/commit/.dir-locals.el?id=7f9d184d9b688d13ce76eefabaddcfa76bdde2b5'>Add (gnu store database).</a><span class='msg-avail'>...</span></td><td>Caleb Ristvedt</td></tr>
<tr><td><span title='2018-06-01 15:20:54 +0200'>2018-06-01</span></td><td><a href='/guix/commit/.dir-locals.el?id=838e17d8050236a6d3ffde991fb0035412eb3046'>gexp: Add 'with-extensions'.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-01-08 10:40:17 +0100'>2018-01-08</span></td><td><a href='/guix/commit/.dir-locals.el?id=f4596f7630ba8d281b972ebd40fd9947ef79e957'>services: guix: Add 'log-compression' option.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-12-01 16:00:14 +0100'>2017-12-01</span></td><td><a href='/guix/commit/.dir-locals.el?id=1fafa2f58732a3fb75258be342c92a2772af2860'>weather: Use (guix progress) for progress report.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>