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))
'>refs</a><a class='active' href='/guix/log/gnu/packages/node.scm'>log</a><a href='/guix/tree/gnu/packages/node.scm?id=1e16e1938c76090447850ed31d31b9e05e2c85bd'>tree</a><a href='/guix/commit/gnu/packages/node.scm?id=1e16e1938c76090447850ed31d31b9e05e2c85bd'>commit</a><a href='/guix/diff/gnu/packages/node.scm?id=1e16e1938c76090447850ed31d31b9e05e2c85bd'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/packages/node.scm'>
<input type='hidden' name='id' value='1e16e1938c76090447850ed31d31b9e05e2c85bd'/><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=1e16e1938c76090447850ed31d31b9e05e2c85bd'>root</a>/<a href='/guix/log/gnu?id=1e16e1938c76090447850ed31d31b9e05e2c85bd'>gnu</a>/<a href='/guix/log/gnu/packages?id=1e16e1938c76090447850ed31d31b9e05e2c85bd'>packages</a>/<a href='/guix/log/gnu/packages/node.scm?id=1e16e1938c76090447850ed31d31b9e05e2c85bd'>node.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/node.scm?id=1e16e1938c76090447850ed31d31b9e05e2c85bd&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2021-06-16 19:07:26 +0200'>2021-06-16</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=0861dbdef68cb979471e8c2ffc5e5afca209632c'>gnu: node: Prepare for ICU 69.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2021-04-02 18:04:24 +0200'>2021-04-02</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=f6c43c932a39bfa73a9750daadcd20f505ddc939'>gnu: Add node-lts.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2021-04-02 18:04:24 +0200'>2021-04-02</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=31c4d89073bdbe2b807ccf7b172df6db200f8d32'>gnu: Add llhttp-bootstrap.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2021-04-02 18:04:23 +0200'>2021-04-02</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=91b78f371e13fb0116055d5987f65641467044ad'>gnu: Add node-llparse-bootstrap.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2021-04-02 18:04:23 +0200'>2021-04-02</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=82e7f7c029c36e9e1109ca7f1c191cceca27b278'>gnu: Add node-llparse-frontend-bootstrap.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2021-04-02 18:04:23 +0200'>2021-04-02</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=6b930e524292026f81ca04688f83d0bcf195e0cf'>gnu: Add node-llparse-builder-bootstrap.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2021-04-02 18:04:23 +0200'>2021-04-02</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=2780cea3f8b90d7feb3e21b92b9637abdaa58a76'>gnu: Add node-debug-bootstrap.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2021-04-02 18:04:23 +0200'>2021-04-02</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=2cc5883b2149d09cad5d2fe04cf8f7c6e73a0ade'>gnu: Add node-binary-search-bootstrap.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2021-04-02 18:04:23 +0200'>2021-04-02</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=972f2a2affe4837c75e7760cdaa5f913dfb061dc'>gnu: Add node-ms-bootstrap.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2021-04-02 18:04:23 +0200'>2021-04-02</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=f540ee5ef845946228c0e2e4cffadccd36069922'>gnu: Add node-semver-bootstrap.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2021-04-02 18:04:23 +0200'>2021-04-02</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=0c0c484613ed1b0dabf7a3292aedad9ec5eeb81d'>gnu: Add node-bootstrap.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2021-04-02 18:04:22 +0200'>2021-04-02</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=7728aa24c53e6eeafb03527457ad796976cb443a'>gnu: node: Use license prefix.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2021-03-17 03:58:10 -0400'>2021-03-17</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=1a265842e634656411bc7304c4648273f174f65e'>gnu: Use PACKAGE/INHERIT in more places.</a><span class='msg-avail'>...</span></td><td>Mark H Weaver</td></tr>
<tr><td><span title='2021-03-01 06:02:28 +0100'>2021-03-01</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=d0a0215cda916d1dbff8fcc50aa4277f4f7e1871'>gnu: node: Update to 10.24.0 [security fixes].</a><span class='msg-avail'>...</span></td><td>Léo Le Bouter</td></tr>
<tr><td><span title='2021-02-24 10:29:40 +0100'>2021-02-24</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=8f250012539675c9d43bd2e52f6eb058dc583850'>gnu: node: Update to 10.23.3.</a><span class='msg-avail'>...</span></td><td>Jelle Licht</td></tr>
<tr><td><span title='2021-01-25 15:40:55 -0500'>2021-01-25</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=68dd78e2e47248b3e1e7ba1807a92a8374b39097'>Merge branch 'master' into staging</a></td><td>Leo Famulari</td></tr>
<tr><td><span title='2021-01-20 22:34:04 +0100'>2021-01-20</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=41134f915f523601fa183f180b801a872b428fc3'>gnu: libnode: Fix regression in unused phases.</a><span class='msg-avail'>...</span></td><td>zimoun</td></tr>
<tr><td><span title='2020-12-29 17:37:17 +0100'>2020-12-29</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=a22e75c073c785a3a71c952d97fb7ab87dfd282d'>Merge branch 'master' into ungrafting</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-12-29 14:26:52 +0100'>2020-12-29</span></td><td><a href='/guix/commit/gnu/packages/node.scm?id=1d77141f6d5004cf10d1f9ead53855f25a973847'>gnu: node: Fix npx shebang.</a><span class='msg-avail'>...</span></td><td>Ricardo Wurmus</td></tr>