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 cebbca55..f0be1b91 100644 --- a/tests/012/iter.tl +++ b/tests/012/iter.tl @@ -174,3 +174,23 @@ (iterp (fun list)) nil (iterp #/regex/) nil (iterp #(vec)) nil) + +(mtest + (list-seq 0..10..-1) :error + (list-seq 0..10..0) :error + (list-seq 0..10..#\a) :error + (list-seq 0..10..1) (0 1 2 3 4 5 6 7 8 9) + (list-seq 0..10..2) (0 2 4 6 8) + (list-seq 0..10..3) (0 3 6 9) + (list-seq 0..10..5) (0 5) + (list-seq 0..10..9) (0 9) + (list-seq 0..10..10) (0) + (list-seq 0..10..1000) (0)) + +(mtest + (list-seq "AA".."CC"..1) ("AA" "AB" "AC" "BA" "BB" "BC" "CA" "CB" "CC") + (list-seq "AA".."CC"..2) ("AA" "AC" "BB" "CA" "CC") + (list-seq "AA".."CC"..3) ("AA" "BA" "CA") + (list-seq "AA".."CC"..8) ("AA" "CC") + (list-seq "AA".."CC"..9) ("AA") + (list-seq "AA".."CC"..999) ("AA")) |