diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2022-01-10 23:05:30 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2022-01-10 23:05:30 -0800 |
| commit | 76e20618d3aa38d977ca37605634d103c5fb506b (patch) | |
| tree | c2d3cf1bd1f33406181f18570353f1a0db94645f | |
| parent | 2b44dc2074a358bc48c3b73b2f65f98cce355b1d (diff) | |
| download | txr-76e20618d3aa38d977ca37605634d103c5fb506b.tar.gz txr-76e20618d3aa38d977ca37605634d103c5fb506b.tar.bz2 txr-76e20618d3aa38d977ca37605634d103c5fb506b.zip | |
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.
| -rw-r--r-- | tests/010/json.tl | 10 |
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#)" |