diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/012/iter.tl | 20 |
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) |