From a2f6a5744045f75f5c5b991cea7fe0df64e2cba4 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Sun, 15 Dec 2024 20:37:21 -0800
Subject: tests for string range length.

* tests/012/seq.tl: New tests.
---
 tests/012/seq.tl | 12 ++++++++++++
 1 file changed, 12 insertions(+)

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)
-- 
cgit v1.2.3