diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-07-12 07:31:00 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-07-12 07:31:00 -0700 |
| commit | 98406141aef8ee359b0829171c557140d46bb502 (patch) | |
| tree | 3f500eb7716ab9b6a0490bf7f93ddaa2f40553a3 | |
| parent | 06f2d42dbaa5427d25f39fe5e0b2b9036d0ab18c (diff) | |
| download | txr-98406141aef8ee359b0829171c557140d46bb502.tar.gz txr-98406141aef8ee359b0829171c557140d46bb502.tar.bz2 txr-98406141aef8ee359b0829171c557140d46bb502.zip | |
tests: json: fix accidentally excluded tests.
* tests/010/json.tl: Fix several tests being excluded from
the (mtest ...) form to which they are expected to belong,
one of them having an extra quote in the expected value, too.
| -rw-r--r-- | tests/010/json.tl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/010/json.tl b/tests/010/json.tl index 8d414b2e..46bcc23d 100644 --- a/tests/010/json.tl +++ b/tests/010/json.tl @@ -150,8 +150,8 @@ (file-get-jsons name) (1.0 t null) (file-get-string name) "1\ntrue\nnull\n" (command-put-json `cat > @name` #(#() #())) t - (file-get-string name) "[[],[]]\n") + (file-get-string name) "[[],[]]\n" (command-get-json `cat @name`) #(#() #()) (command-put-jsons `cat > @name` '(#() 1.0 nil)) t (file-get-string name) "[]\n1\nfalse\n" - (command-get-jsons `cat @name`) '(#() 1.0 nil)) + (command-get-jsons `cat @name`) (#() 1.0 nil))) |