diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/010/range.tl | 2 | ||||
| -rw-r--r-- | tests/012/seq.tl | 12 |
2 files changed, 13 insertions, 1 deletions
diff --git a/tests/010/range.tl b/tests/010/range.tl index 4cc9ee95..c116cf87 100644 --- a/tests/010/range.tl +++ b/tests/010/range.tl @@ -67,7 +67,7 @@ (range* 0 1.25 0.5) (0 0.5 1.0)) (mtest - (range "A" "A") nil + (range "A" "A") ("A") (range "A" "A" 0) :error (range "A" "A" -2) :error) diff --git a/tests/012/seq.tl b/tests/012/seq.tl index 86980e57..b1063513 100644 --- a/tests/012/seq.tl +++ b/tests/012/seq.tl @@ -1636,3 +1636,15 @@ (length "Z".."A") 26 (length "AAA".."ZZZ") 17576 (length "ZZZ".."AAA") 17576) + +(mtest + (list-seq "A".."A") ("A") + (list-seq "A".."B") ("A" "B") + (list-seq "B".."A") ("B" "A") + (list-seq "AA".."AA") ("AA") + (list-seq "AA".."AB") ("AA" "AB") + (list-seq "AB".."AA") ("AB" "AA") + (list-seq "A".."D") ("A" "B" "C" "D") + (list-seq "D".."A") ("D" "C" "B" "A") + (list-seq "AA".."CC") ("AA" "AB" "AC" "BA" "BB" "BC" "CA" "CB" "CC") + (list-seq "CC".."AA") ("CC" "CB" "CA" "BC" "BB" "BA" "AC" "AB" "AA")) |