Hello,
I think I found a bug in (srfi srfi-64) module shipped with GNU Guile.
The specification says the following regarding the test-result-kind:
> If we've started on a new test, but don't have a result yet, then the result
> kind is 'xfail if the test is expected to fail, 'skip if the test is supposed
> to be skipped, or #f otherwise.
Thus I believe that following should print `xfail':
(use-modules (srfi srfi-64))
(test-begin "x")
(test-runner-on-test-begin! (test-runner-current)
(λ (runner)
(pk (test-result-kind))))
(test-skip 1)
(test-expect-fail 1)
(test-assert #t)
(test-end)
However it does not:
;;; (skip)
Have a nice day
Tomas Volf
