brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Work on day in period.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-22 14:56:10 +02:00
parent 0f668cfa34
commit 71687849c4
3 changed files with 36 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/testing.scm
View file

@ -91,7 +91,7 @@
(let ((result expression))
(if (eq? result #f)
(display ".")
(error 'test-true (sprintf "~A expression=~S result=~S"
(error 'test-false (sprintf "~A expression=~S result=~S"
'name 'expression result)))))))
;; Passes if the-test raises an exception