From c06457a7de9473bf71c06baec314e14868be14e9 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku 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