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 | 7b8b674da4c3153d6c81f2f46905b87ee211c32c (patch) | |
| tree | 43c8b24ecce823b187f2780a9e89e6ac47e7b629 | |
| parent | 8d7fecb6f613486611199340faac484a266c953b (diff) | |
| download | txr-7b8b674da4c3153d6c81f2f46905b87ee211c32c.tar.gz txr-7b8b674da4c3153d6c81f2f46905b87ee211c32c.tar.bz2 txr-7b8b674da4c3153d6c81f2f46905b87ee211c32c.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) |