Submitted upstream: https://gitlab.com/weinholt/ac-d-bus/-/merge_requests/3

diff --git a/tests/test-signature.sps b/tests/test-signature.sps
index 278401b..cc5574f 100755
--- a/tests/test-signature.sps
+++ b/tests/test-signature.sps
@@ -43,6 +43,7 @@
             (format-type-signature '(message BYTE BYTE BYTE BYTE UINT32 UINT32
                                              (ARRAY (STRUCT BYTE VARIANT)))))
 
+(define fail-count (test-runner-fail-count (test-runner-get)))
 (test-end)
 
-(exit (if (zero? (test-runner-fail-count (test-runner-get))) 0 1))
+(exit (if (zero? fail-count) 0 1))
diff --git a/tests/test-wire.sps b/tests/test-wire.sps
index c3354bf..06ae73b 100755
--- a/tests/test-wire.sps
+++ b/tests/test-wire.sps
@@ -147,6 +147,7 @@
                   #x08 #x01 #x67 #x00  #x00 #x00 #x00 #x00  #x05 #x01 #x75 #x00  #x04 #x00 #x00 #x00
                   #x07 #x01 #x73 #x00  #x06 #x00 #x00 #x00  #x3A #x31 #x2E #x32  #x39 #x38 #x00 #x00)))
 
+(define fail-count (test-runner-fail-count (test-runner-get)))
 (test-end)
 
-(exit (if (zero? (test-runner-fail-count (test-runner-get))) 0 1))
+(exit (if (zero? fail-count) 0 1))
d7c0'>refs</a><a class='active' href='/guix/log/gnu/packages/digest.scm'>log</a><a href='/guix/tree/gnu/packages/digest.scm?id=f63f524053a9a8503bf98532b6b3d91b17c1d7c0'>tree</a><a href='/guix/commit/gnu/packages/digest.scm?id=f63f524053a9a8503bf98532b6b3d91b17c1d7c0'>commit</a><a href='/guix/diff/gnu/packages/digest.scm?id=f63f524053a9a8503bf98532b6b3d91b17c1d7c0'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/digest.scm'>
<input type='hidden' name='id' value='f63f524053a9a8503bf98532b6b3d91b17c1d7c0'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=f63f524053a9a8503bf98532b6b3d91b17c1d7c0'>root</a>/<a href='/guix/log/gnu?id=f63f524053a9a8503bf98532b6b3d91b17c1d7c0'>gnu</a>/<a href='/guix/log/gnu/packages?id=f63f524053a9a8503bf98532b6b3d91b17c1d7c0'>packages</a>/<a href='/guix/log/gnu/packages/digest.scm?id=f63f524053a9a8503bf98532b6b3d91b17c1d7c0'>digest.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/packages/digest.scm?id=f63f524053a9a8503bf98532b6b3d91b17c1d7c0&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-01-03 21:06:26 -0500'>2021-01-03</span></td><td><a href='/guix/commit/gnu/packages/digest.scm?id=4a829b2d55bc9b0ad5a335c8228a7d2371fa1d9a'>gnu: Add wyhash.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/digest.scm (wyhash): New variable.

Signed-off-by: Leo Famulari &lt;leo@famulari.name&gt;
</span></span></td><td>Ryan Prior</td></tr>
<tr><td><span title='2020-08-01 09:00:44 +0200'>2020-08-01</span></td><td><a href='/guix/commit/gnu/packages/digest.scm?id=08447d3a7556fb6355a32c6d5ccb6d4768b8e12d'>gnu: Update xxhash to 0.8.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/digest.scm (xxhash): Update to 0.8.0.

Signed-off-by: Mathieu Othacehe &lt;othacehe@gnu.org&gt;
</span></span></td><td>Hendursaga</td></tr>
<tr><td><span title='2020-06-29 15:47:11 +0200'>2020-06-29</span></td><td><a href='/guix/commit/gnu/packages/digest.scm?id=1d25cfbaf4b707f5af9aafe6ac3d8828c5b89f45'>gnu: xxhash: Detect vector instructions at run time.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/digest.scm (xxhash)[arguments]: Set DISPATCH=1 make flag
on x86.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-06-29 15:47:11 +0200'>2020-06-29</span></td><td><a href='/guix/commit/gnu/packages/digest.scm?id=8db9300454d067dfa023430e51d7f394f203d849'>gnu: xxhash: Update to 0.7.4.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/digest.scm (xxhash): Update to 0.7.4.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-06-29 15:47:11 +0200'>2020-06-29</span></td><td><a href='/guix/commit/gnu/packages/digest.scm?id=9c1324a4164eb7bf3a912b185b2ab9c86447e005'>gnu: xxhash: Cross-compile.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/digest.scm (xxhash)[arguments]: Use CC-FOR-TARGET.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2020-03-11 21:39:16 -0400'>2020-03-11</span></td><td><a href='/guix/commit/gnu/packages/digest.scm?id=4b5a0c0540fb1008daa6834f05aa94c85803e620'>gnu: xxHash: Update to 0.7.3.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/digest.scm (xxhash): Update to 0.7.3.
</span></span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2019-12-23 19:45:57 +0100'>2019-12-23</span></td><td><a href='/guix/commit/gnu/packages/digest.scm?id=491b91dc8a879e092c451ac15a9842f2feb40be4'>gnu: xxhash: Update to 0.7.2.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/digest.scm (xxhash): Update to 0.7.2.
[arguments]: Run ‘make check’ in parallel.
</span></span></td><td>Tobias Geerinckx-Rice</td></tr>
<tr><td><span title='2019-11-10 12:42:10 +0200'>2019-11-10</span></td><td><a href='/guix/commit/gnu/packages/digest.scm?id=f1d4d79fb3206fa26834b301fae7fc75c7f46ef8'>gnu: Add 'file-name' where appropriate.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/admin.scm (detox, neofetch),
gnu/packages/algebra.scm (python-fpylll),
gnu/packages/bioinformatics.scm (tbsp, genrich),
gnu/packages/crypto.scm (hpenc),
gnu/packages/digest.scm (xxhash),
gnu/packages/emacs-xyz.scm (emacs-tiny, emacs-ergoemacs-mode,
emacs-make-it-so, emacs-poet-theme, emacs-deft, emacs-scribble-mode,
emacs-helm-mu, emacs-unidecode, emacs-diff-hl, emacs-helm-exwm,
emacs-gif-screencast, emacs-exec-path-from-shell),
gnu/packages/engineering.scm (gpx),
gnu/packages/freedesktop.scm (waylandpp),
gnu/packages/golang.scm (go-github-com-sirupsen-logrus,
go-github-com-shirou-gopsutil),
gnu/packages/guile-xyz.scm (guile-studio, guile-picture-language,
jupyter-guile-kernel),
gnu/packages/image-viewers.scm (qview),
gnu/packages/java-maths.scm (java-jblas),
gnu/packages/llvm.scm (libclc),
gnu/packages/logging.scm (spdlog),
gnu/packages/ocaml.scm (ocaml-cstruct, ocaml-zarith),
gnu/packages/terminals.scm (libtsm),
gnu/packages/tigervnc.scm (tigervnc-client),
gnu/packages/xdisorg.scm (xcalib, xbanish) [source]: Add file-name.
</span></span></td><td>Efraim Flashner</td></tr>