Hi,
I found that new srfi-64 luckily can be easily extended to take custom
equality functions, yay!...if only %test-2 was exported...
Also, jumping to the test location from the compilation buffer broke for
me. So I'm now carrying this patch now.
Maybe I am missing something, is there a better way?
Greetings,
Janneke
--8<---------------cut here---------------start------------->8---
diff --git a/module/srfi/srfi-64.scm b/module/srfi/srfi-64.scm
index 98fcef645f..8bc892d7aa 100644
--- a/module/srfi/srfi-64.scm
+++ b/module/srfi/srfi-64.scm
@@ -115,6 +115,7 @@
test-runner-xpass-count
;; Additional functionality not in SRFI-64:
+ %test-2
define-test
test-procedure?
test-thunk
@@ -435,8 +436,9 @@ instead."
result-kind
(test-runner-test-name runner))
(unless (member result-kind '(pass xfail))
- (maybe-print-prop 'source-file #f)
- (maybe-print-prop 'source-line #f)
+ (format #t "~a:~a: FAIL\n"
+ (test-result-ref runner 'source-file)
+ (test-result-ref runner 'source-line))
(maybe-print-prop 'source-form #t)
(maybe-print-prop 'expected-value #f)
(maybe-print-prop 'expected-error #t)
--8<---------------cut here---------------end--------------->8---
--
Janneke Nieuwenhuizen <[email protected]> | GNU LilyPond https://LilyPond.org
Freelance IT https://www.JoyOfSource.com | Avatar® https://AvatarAcademy.com
