diff options
| author |  Peter McGoron
| 2025-01-09 15:59:48 -0500 |
|---|---|---|
| committer | Peter McGoron
| 2025-01-09 15:59:48 -0500 |
| commit | 0db5a207707a1913986a364cf620a361bc788d57 (patch) | |
| tree | 8075af7fa65561f706de22d2c74e3647e50a3089 /tests/basic.scm | |
| parent | add receive-ct (diff) | |
evaluate-thunk-to-boolean
Diffstat (limited to '')
| -rw-r--r-- | tests/basic.scm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/tests/basic.scm b/tests/basic.scm index fdcc0d7..b029bfc 100644 --- a/tests/basic.scm +++ b/tests/basic.scm @@ -65,6 +65,14 @@ (cond-thunk (on-pair #f) (on-boolean #f) - (else #f)))) + (else #f))) + (test + "evaluate-thunk-to-boolean 1" + #f + (evaluate-thunk-to-boolean (on-pair #f))) + (test + "evaluate-thunk-to-boolean 2" + #t + (evaluate-thunk-to-boolean (on-boolean #t)))) (test-end "(mcgoron cond-thunk base)") |