summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
Diffstat (limited to 'tests')
-rw-r--r--tests/012/readprint.tl13
1 files changed, 13 insertions, 0 deletions
diff --git a/tests/012/readprint.tl b/tests/012/readprint.tl
index 4298a85b..b3c2ff14 100644
--- a/tests/012/readprint.tl
+++ b/tests/012/readprint.tl
@@ -11,3 +11,16 @@
'(dwim) "[]"
'(dwim . 3) "[. 3]"
'(dwim 3 . 4) "[3 . 4]")
+
+(mtest
+ (tostring #b'ff') "#b'ff'"
+ (tostringp #b'ff') "ff")
+
+(let ((b #b'abcdef'))
+ (mtest
+ `@b` "abcdef"
+ `@{b [0..1]}` "ab"
+ `@{b [-1..:]}` "ef"
+ `@{b ":"}` "abcdef"
+ `@{b [0..2] ":"}` "abcd"
+ `@{b [-1]}` "239"))