test multi character stringHEADmaster

1 files changed, 19 insertions, 0 deletions

diff --git a/tests/string.scm b/tests/string.scm
index e8d2671..a4a30c1 100644
--- a/tests/string.scm
+++ b/tests/string.scm
@@ -55,3 +55,22 @@
                    (with-exception-check ref-at-end
                      (iterator-ref next-itr))))))
 
+(let* ((str "abcd")
+       (itr1 (string-iterator-start str)))
+  (test-group "multiple advance")
+  (let ((itr2 (iterator-advance itr1 1))
+        (itr3 (iterator-advance itr1 2))
+        (itr4 (iterator-advance itr1 3)))
+    (test-assert "itr4 status" (not (iterator-at-end? itr4)))
+    (test "itr1 ref" #\a (iterator-ref itr1))
+    (test "itr2 ref" #\b (iterator-ref itr2))
+    (test "itr3 ref" #\c (iterator-ref itr3))
+    (test "itr4 ref" #\d (iterator-ref itr4))
+    (test-assert "itr2->itr3" (iterator=? itr3
+                                          (iterator-next itr2)))
+    (test-assert "itr2->itr4" (iterator=? itr4
+                                          (iterator-advance itr2 2)))
+    (test-assert "itr2 < itr4" (iterator<? itr2 itr4))
+    (test-assert "itr4->itr2" (iterator=? itr2
+                                          (iterator-advance itr4 -2)))))
+