diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2024-12-15 22:37:17 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2024-12-15 22:37:17 -0800 |
| commit | a3532279d5d16f1f69bff1bae06f477cdbc53b0f (patch) | |
| tree | b24324d40af254e2178024e309bf5edba6dbe621 /tests/010/range.tl | |
| parent | a2f6a5744045f75f5c5b991cea7fe0df64e2cba4 (diff) | |
| download | txr-a3532279d5d16f1f69bff1bae06f477cdbc53b0f.tar.gz txr-a3532279d5d16f1f69bff1bae06f477cdbc53b0f.tar.bz2 txr-a3532279d5d16f1f69bff1bae06f477cdbc53b0f.zip | |
string ranges: bug: ranges of length 1.
* lib.c (seq_iter_init_with_info): String ranges are
inclusive. We must not assume at a range whose endpoints are
the same is empty; we must check that case for the endpoints
being strings.
* tests/012/seq.tl: New tests.
Diffstat (limited to 'tests/010/range.tl')
| -rw-r--r-- | tests/010/range.tl | 2 |
1 files changed, 1 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) |