(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")
s='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/tests/read-print.scm?id=5a5b93304d7eb4108f086bf1777ccc675ee19e42&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2022-09-20 19:24:31 +0200'>2022-09-20</span></td><td><a href='/guix/commit/tests/read-print.scm?id=7a698da0d04d75f1c49f9ae9f358070acab0f781'>read-print: Correctly support multiple same-named newline forms.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-09-02 10:49:35 +0200'>2022-09-02</span></td><td><a href='/guix/commit/tests/read-print.scm?id=82968362ead0ed59c64ee8a21fec346c9265a149'>read-print: Define forms for which \n, \t, etc. are not escaped.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-09-01 18:31:26 +0200'>2022-09-01</span></td><td><a href='/guix/commit/tests/read-print.scm?id=c3b1cfe76b7038f4030d7d207ffc417fed9a7ead'>read-print: Guess the base to use for integers being printed.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-10 16:53:58 +0200'>2022-08-10</span></td><td><a href='/guix/commit/tests/read-print.scm?id=ebda12e1d2c64480bb7d5977e580d8b2eabeb503'>read-print: Report missing closing parens instead of looping.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:54:25 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=6db3b34d7203639ef4286c237a6e536259f92352'>read-print: Add 'case' and 'cond' special forms.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:54:24 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=445a0d134ce735577d1e22f210c2e5ceafc56762'>read-print: Support printing multi-line comments.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:32 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=90ef692e9b48732ae2e3921ff5d101e186506a85'>read-print: 'canonicalize-comment' leaves top-level comments unchanged.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:32 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=9b00c97de41165beefe3eff936470f8e081ca600'>read-print: Add code to read and write sequences of expressions/blanks.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:32 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=077324a16fd6c7d2307bfa52a9863ca25cfc6a52'>read-print: Recognize page breaks.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:32 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=f687e27e0385c7f9bab8d967293061158fc3f504'>read-print: Read and render vertical space.</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-08-08 11:22:31 +0200'>2022-08-08</span></td><td><a href='/guix/commit/tests/read-print.scm?id=5817e222faf46f76fbdb66ba8fd6c8cd643aefb5'>style: Move reader and printer to (guix read-print).</a><span class='msg-avail'>...</span></td><td>Ludovic Courtès</td></tr>