diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2024-12-15 20:37:21 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2024-12-15 20:37:21 -0800 |
| commit | a2f6a5744045f75f5c5b991cea7fe0df64e2cba4 (patch) | |
| tree | 43c8b24ecce823b187f2780a9e89e6ac47e7b629 | |
| parent | d10133ca992eeb8e26940c25959017a9250c0768 (diff) | |
| download | txr-a2f6a5744045f75f5c5b991cea7fe0df64e2cba4.tar.gz txr-a2f6a5744045f75f5c5b991cea7fe0df64e2cba4.tar.bz2 txr-a2f6a5744045f75f5c5b991cea7fe0df64e2cba4.zip | |
tests for string range length.
* tests/012/seq.tl: New tests.
| -rw-r--r-- | tests/012/seq.tl | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/012/seq.tl b/tests/012/seq.tl index c831e6c5..86980e57 100644 --- a/tests/012/seq.tl +++ b/tests/012/seq.tl @@ -1624,3 +1624,15 @@ (test (copy 1..10) #(1 2 3 4 5 6 7 8 9)) + +(mtest + (length "A".."A") 1 + (length "A".."B") 2 + (length "B".."A") 2 + (length "AA".."AA") 1 + (length "AA".."AB") 2 + (length "AB".."AA") 2 + (length "A".."Z") 26 + (length "Z".."A") 26 + (length "AAA".."ZZZ") 17576 + (length "ZZZ".."AAA") 17576) |