summaryrefslogtreecommitdiffstats
path: root/tests/012/readprint.tl
diff options
context:
space:
mode:
Diffstat (limited to 'tests/012/readprint.tl')
-rw-r--r--tests/012/readprint.tl19
1 files changed, 17 insertions, 2 deletions
diff --git a/tests/012/readprint.tl b/tests/012/readprint.tl
index b3c2ff14..deebeba0 100644
--- a/tests/012/readprint.tl
+++ b/tests/012/readprint.tl
@@ -21,6 +21,21 @@
`@b` "abcdef"
`@{b [0..1]}` "ab"
`@{b [-1..:]}` "ef"
- `@{b ":"}` "abcdef"
- `@{b [0..2] ":"}` "abcd"
+ `@{b ":"}` "ab:cd:ef"
+ `@{b ""}` "abcdef"
+ `@{b [0..2] ":"}` "ab:cd"
+ `@{b [0..1] ":"}` "ab"
+ `@{b [0..0] ":"}` ""
`@{b [-1]}` "239"))
+
+(let ((b "abcdef"))
+ (mtest
+ `@b` "abcdef"
+ `@{b [0..1]}` "a"
+ `@{b [-1..:]}` "f"
+ `@{b ":"}` "a:b:c:d:e:f"
+ `@{b ""}` "abcdef"
+ `@{b [0..2] ":"}` "a:b"
+ `@{b [0..1] ":"}` "a"
+ `@{b [0..0] ":"}` ""
+ `@{b [-1]}` "f"))