From c06457a7de9473bf71c06baec314e14868be14e9 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 10 Jan 2022 23:05:30 -0800
Subject: 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.
---
 tests/010/json.tl | 10 ++++++++++
 1 file changed, 10 insertions(+)

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#)"
-- 
cgit v1.2.3