json: add tests with multi-line literals.

* tests/010/json.tl: New tests. These work. Odd; I'm seeing
an issue whereby typing multi-line #J expressions into the
listener does not work.

1 files changed, 10 insertions, 0 deletions

diff --git a/tests/010/json.tl b/tests/010/json.tl
index e23d36d4..dfd45173 100644
--- a/tests/010/json.tl
+++ b/tests/010/json.tl
@@ -62,6 +62,16 @@
   #J{ "a" : 1.0 } #H(() (a 1.0))
   #J{ "a" : 1.0, "b" : [null] } #H(() (a 1.0) (b #(null)))
 
+(mtest
+  #J[
+     ] #()
+  #J[1,
+     2,
+     3] #(1.0 2.0 3.0)
+  #J{"foo":
+     "bar"}
+  #H(() ("foo" "bar")))
+
 (let ((*print-circle* t))
   (mstest
     #J[#1="abc", #1#] "#(#1=\"abc\" #1#)"