diff options
| author |  Peter McGoron
| 2025-01-16 23:28:26 -0500 |
|---|---|---|
| committer | Peter McGoron
| 2025-01-16 23:28:26 -0500 |
| commit | 76907b11b323e515c839bd14c2b5c6cc51a1dc5b (patch) | |
| tree | 7cc26af2539d65c494a8ec4f3dccd2a7db55ea4c /tests | |
| parent | split and search (diff) | |
add a generating thunk for split
Diffstat (limited to '')
| -rw-r--r-- | tests/run.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/run.scm b/tests/run.scm index c2e06ec..14800ba 100644 --- a/tests/run.scm +++ b/tests/run.scm @@ -211,7 +211,8 @@ (call/inserted (lambda (left middle right node) (let-values (((new-left found? new-right) - (split number-comparator node middle))) + (split number-comparator node middle + (lambda () #f)))) found?)))) (test-group "split finds" @@ -221,7 +222,8 @@ (call-w/o-inserted (lambda (left middle right node) (let-values (((new-left found? new-right) - (split number-comparator node middle))) + (split number-comparator node middle + (lambda () #f)))) (not found?))))) (test-group "split does not find" |