Hello,
I think I found a bug in (srfi srfi-64) module shipped with GNU Guile.
The specification says the following regarding the test-approximate:
> This is equivalent to (except that each argument is only evaluated once):
>
>
> (test-assert [test-name]
> (and (>= test-expr (- expected error))
> (<= test-expr (+ expected error))))
However the test-name is evaluated multiple times:
(use-modules (srfi srfi-64))
(test-begin "x")
(test-approximate (pk "t") 1 1 0)
Leading to:
;;; ("t")
;;; ("t")
Have a nice day
Tomas Volf
