...
original commit: f506aebaf30b9e78a8cf2311bf12add69a1a0f34
This commit is contained in:
parent
168e7abd48
commit
21f4156b15
|
@ -354,6 +354,15 @@
|
|||
(arity-test get-shared 1 2)
|
||||
(arity-test print-convert-expr 3 3)
|
||||
(test 'null print-convert '())
|
||||
(parameterize ([empty-list-name 'empty])
|
||||
(test 'empty print-convert '()))
|
||||
|
||||
(let ([pc
|
||||
(lambda (pv)
|
||||
(lambda (x)
|
||||
(parameterize ([booleans-as-true/false pv])
|
||||
(print-convert x))))])
|
||||
(test 'false (pc #t) #f)
|
||||
(test 'true (pc #t) #t)
|
||||
(test #f (pc #f) #f)
|
||||
(test #t (pc #f) #t))
|
||||
|
||||
(report-errs)
|
||||
|
|
Loading…
Reference in New Issue
Block a user