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

Small tests refactoring.

Browse source
This commit is contained in:
Dominik Pantůček 2023-05-22 20:28:13 +02:00
parent aa6a9ac705
commit 1e59177e15
3 changed files with 8 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/util-dict-list.scm
View file

@ -236,7 +236,7 @@
;; Performs self-tests of the dictionary module.
(define (ldict-tests!)
(run-tests
dict
ldict
(test-equal? make-ldict (make-ldict) `(,TAG-LDICT (,eq?)))
(test-exn ldict-ref (ldict-ref (make-ldict) 'nonexistent))
(test-true ldict-ref (ldict-ref (make-ldict) 'nonexistent #t))