dane/d-
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add assert-unspecified to literals in define-test

Browse Source
This commit is contained in:
Dane Johnson 2025-08-13 11:34:59 -05:00
parent 41b2467b42
commit 96d406d98b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
d-/test.scm
View File

@ -13,7 +13,7 @@
(lambda (stx) (lambda (stx)
(with-syntax ([fail (datum->syntax stx 'fail)]) (with-syntax ([fail (datum->syntax stx 'fail)])
(define (assert-stx expr) (define (assert-stx expr)
(syntax-case expr (assert-equal assert-not-equal) (syntax-case expr (assert-equal assert-not-equal assert-unspecified)
[(assert-equal e a) #'(assert e a equal? fail)] [(assert-equal e a) #'(assert e a equal? fail)]
[(assert-not-equal e a) #'(assert e a (compose not equal?) fail)] [(assert-not-equal e a) #'(assert e a (compose not equal?) fail)]
[(assert-unspecified v) #'(assert (when #f 'a) v eq? fail)] [(assert-unspecified v) #'(assert (when #f 'a) v eq? fail)]