json: wrap up: test cases, fixes, tweaks.

* /share/txr/stdlib/getput.tl (get-jsons): If the s parameter
is a string, convert it to a byte input stream so that.
(put-jsons): Add missing t return value.
(file-put-json, file-append-json, file-put-jsons,
file-append-jsons, command-put-jsons, command-put-jsons): Add
missing object argument to all these functions, and a missing
"w" open-file mode to several of them.

* stream.c (mkstemp_wrap): Calculate length of suff the
defaulted argument, not the raw suffix argument.

* test/010/json.tl: New file, providing tests that touch every
area of the new JSON functionality.

* tests/common.tl (mstest, with-temp-file): New macros.

* txr.1: Document that get-jsons takes a source which could be
a string.

1 files changed, 1 insertions, 1 deletions

diff --git a/stream.c b/stream.c
index 34509f87..2fdd5e0d 100644
--- a/stream.c
+++ b/stream.c
@@ -4976,7 +4976,7 @@ val mkstemp_wrap(val prefix, val suffix)
   val self = lit("mkstemp");
   val suff = default_arg(suffix, null_string);
   val template = scat3(prefix, lit("XXXXXX"), suff);
-  cnum slen = c_num(length(suffix), self);
+  cnum slen = c_num(length(suff), self);
   char *tmpl = utf8_dup_to(c_str(template));
   val name;
   int fd;