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
lmpx.com only provides a reader for public news (NNTP) servers. It is not
affiliated with the servers or forums shown here and is not responsible for
the content of articles, which is written by their respective authors.