Dears,<br>
<br>
I am learning Guile and I like to do so by creating a toy app (it leads my experiments). Emacs and Geiser bring together a funny way to build software incrementaly. As my software becomes bigger, I appreciate haviing a non-regression test harness to see if I broke old features by adding new features or by just cleaning the code haha.<br>
<br>
I am using the SRFI-64 to build that test harness for my software. I evaluate the (load &quot;main-test.scm&quot;) expression in the REPL to run my tests. By doing so, I can see the number of &quot;expected passes&quot; incrementing over the last runs.<br>
<br>
xxxxxx@(guile-user)&gt; (load &quot;main-test.scm&quot;)<br>
%%%% Starting test main<br>
# of expected passes 2<br>
xxxxxx@(guile-user)&gt; (load &quot;main-test.scm&quot;)<br>
%%%% Starting test main<br>
# of expected passes 4<br>
xxxxxx@(guile-user)&gt; (load &quot;main-test.scm&quot;)<br>
%%%% Starting test main<br>
# of expected passes 6<br>
<br>
I would like to have this behavior :<br>
<br>
xxxxxx@(guile-user)&gt; (load &quot;main-test.scm&quot;)<br>
%%%% Starting test main<br>
# of expected passes 2<br>
xxxxxx@(guile-user)&gt; (load &quot;main-test.scm&quot;)<br>
%%%% Starting test main<br>
# of expected passes 2<br>
xxxxxx@(guile-user)&gt; (load &quot;main-test.scm&quot;)<br>
%%%% Starting test main<br>
# of expected passes 2<br>
<br>
Here is my test-main.scm :<br>
<br>
(use-modules (srfi srfi-64))<br>
(module-define! (resolve-module &#39;(srfi srfi-64)) &#39;test-log-to-file #f)<br>
(use-modules (main))<br>
(test-begin &quot;main&quot;)<br>
(test-assert &quot;true&quot;<br>
#t)<br>
(test-assert &quot;false&quot;<br>
(not #f))<br>
(test-end &quot;main&quot;)<br>
<br>
I tried to use (clear-test(test-result-clear (test-runner-current)) without success...<br>
<br>
Hope you can help me with that. I have barely few (no) experience in Scheme/Lisp ... Sorry about that.<br>
<br>
Thank you,<br>
<br>
Jérémy<br>
-- <br>
Envoyé de mon appareil Android avec Courriel K-9 Mail. Veuillez excuser ma brièveté.