refactor tests to check type of exception

1 files changed, 5 insertions, 2 deletions

diff --git a/tests/string.scm b/tests/string.scm
index 7625acc..e8d2671 100644
--- a/tests/string.scm
+++ b/tests/string.scm
@@ -26,7 +26,8 @@
                                                   (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))))
+    (test-assert "iterator-ref" (with-exception-check ref-at-end
+                                  (iterator-ref itr)))))
 
 (let* ((str "a")
        (itr (string-iterator-start str))
@@ -50,5 +51,7 @@
                    (iterator=? itr (iterator-advance next-itr -1)))
       (test "iterator->index next-itr" 1
             (iterator->index next-itr))
-      (test-error "iterator-ref next-itr" (iterator-ref next-itr)))))
+      (test-assert "iterator-ref next-itr"
+                   (with-exception-check ref-at-end
+                     (iterator-ref next-itr))))))