aboutsummaryrefslogtreecommitdiffstats
path: root/tests/string.scm
diff options
context:
space:
mode:
authorGravatar Peter McGoron 2024-12-28 22:29:28 -0500
committerGravatar Peter McGoron 2024-12-28 22:29:28 -0500
commitd80be95f5e58f761f2a215256150c85fea8c9d75 (patch)
tree98bd3893ba5b40ecb8043d4cbcc12c3288062e84 /tests/string.scm
parentrefactor iterators to be closure objects (diff)
refactor exceptions to be less verbose
Diffstat (limited to '')
-rw-r--r--tests/string.scm6
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))))