iter-begin: handle FLNUM.

* lib.c (iter_begin, iter_more, iter_item, iter_step,
iter_reset, copy_iter): Handle FLNUM like NUM, so that we
don't wastefully return a dynamic iterator object.

* tests/012/iter.tl: Test cases for numeric and character
iteration. Test cases for iter-begin on some basic types.
copy-iter test for floats.

1 files changed, 13 insertions, 0 deletions

diff --git a/tests/012/iter.tl b/tests/012/iter.tl
index 67e9875e..9b12d49c 100644
--- a/tests/012/iter.tl
+++ b/tests/012/iter.tl
@@ -95,15 +95,28 @@
    115792089237316195423570985008687907853269984665640564039457584007913129639933))
 
 (mtest
+  (take 3 (list-seq 1.0)) (1.0 2.0 3.0)
+  (take 3 (list-seq #\a)) (#\a #\b #\c)
+  (take 3 (list-seq 1)) (1 2 3))
+
+(mtest
   (str-seq (iter-cat "abc" "def" "ghi" #\j..(succ #\z)))
   "abcdefghijklmnopqrstuvwxyz"
   (iter-cat) nil
   (list-seq (iter-cat nil)) nil)
 
 (mtest
+  (iter-begin nil) nil
+  (iter-begin '(1 2 3)) (1 2 3)
+  (iter-begin 42) 42
+  (iter-begin 3.14) 3.14
+  (iter-begin #\a) #\a)
+
+(mtest
   (copy-iter nil) nil
   (copy-iter '(1 2 3)) (1 2 3)
   (copy-iter 42) 42
+  (copy-iter 3.14) 3.14
   (copy-iter #\a) #\a)
 
 (each ((obj '("abcde" #(0 1 2 3 4) "a".."z" 0..9 1.0..10.0)))