diff options
Diffstat (limited to 'tests/012/readprint.tl')
-rw-r--r-- | tests/012/readprint.tl | 19 |
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")) |