1 files changed, 20 insertions, 0 deletions
diff --git a/tests/012/iter.tl b/tests/012/iter.tl
index 94a50f34..cebbca55 100644
--- a/tests/012/iter.tl
+++ b/tests/012/iter.tl
@@ -154,3 +154,23 @@
   (iter-item #()) :error
   (iter-item #(1)) :error
   (iter-item #(1 2 3)) :error)
+
+(defstruct iter ()
+  (:method iter-step (self)))
+
+(defstruct not-iter ())
+
+(mtest
+  (iterp nil) t
+  (iterp '(a . b)) t
+  (iterp (lcons 3 4)) t
+  (iterp #\a) t
+  (iterp 42) t
+  (iterp (expt 2 512)) t
+  (iterp 3.14) t
+  (iterp (new iter)) t
+  (iterp (new not-iter)) nil
+  (iterp "abc") nil
+  (iterp (fun list)) nil
+  (iterp #/regex/) nil
+  (iterp #(vec)) nil)