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