diff options
| author | 2024-12-28 22:29:28 -0500 | |
|---|---|---|
| committer | 2024-12-28 22:29:28 -0500 | |
| commit | d80be95f5e58f761f2a215256150c85fea8c9d75 (patch) | |
| tree | 98bd3893ba5b40ecb8043d4cbcc12c3288062e84 /tests/string.scm | |
| parent | refactor iterators to be closure objects (diff) | |
refactor exceptions to be less verbose
Diffstat (limited to '')
| -rw-r--r-- | tests/string.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/tests/string.scm b/tests/string.scm index d3ab241..7625acc 100644 --- a/tests/string.scm +++ b/tests/string.scm @@ -20,8 +20,10 @@ (test-group "empty-string" (test-assert "iterator-at-start?" (iterator-at-start? itr)) (test-assert "iterator-at-end?" (iterator-at-end? itr)) - (test-assert "iterator-advance 1" (not (iterator-advance itr 1))) - (test-assert "iterator-advance -1" (not (iterator-advance itr -1))) + (test-assert "iterator-next" (not (iterator-next itr))) + (test-assert "iterator-prev" (not (iterator-next itr))) + (test-assert "iterator-advance 0" (iterator=? itr + (iterator-advance itr 0))) (test "iterator->index" 0 (iterator->index itr)) (test-assert "iterator=?" (iterator=? itr (string-iterator-end str))) (test-error "iterator-ref" (iterator-ref itr)))) |
