Function main

common/test/run-json_scan.c:125–252

}

int main(int argc, char *argv[])
{
	const jsmntok_t *toks, *t;
	char *buf;
	char *s;
	u32 u32val;
	u8 *hex;
	const char *err;

	common_setup(argv[0]);

	buf = tal_strdup(tmpctx, "{\"1\":\"one\", \"2\":\"two\", \"3\":{\"three\": {\"deeper\": 17}}, \"arr\": [{\"1\": \"arrone\"}, 2, [3, 4]]}");
	toks = json_parse_simple(tmpctx, buf, strlen(buf));
	assert(toks);
	assert(toks->size == 4);

	/* These are direct matches, and they work. */
	assert(!json_scan(tmpctx, buf, toks, "{1:one}"));
	assert(!json_scan(tmpctx, buf, toks, "{1:one,2:two}"));
	assert(!json_scan(tmpctx, buf, toks, "{2:two,1:one}"));
	assert(!json_scan(tmpctx, buf, toks, "{2:two,1:one,3:{three:{deeper:17}}}"));
	assert(!json_scan(tmpctx, buf, toks, "{2:two,1:one,3:{three:{deeper:17}},arr:[0:{1:arrone}]}"));
	assert(!json_scan(tmpctx, buf, toks, "{2:two,1:one,3:{three:{deeper:17}},arr:[1:2]}"));
	assert(!json_scan(tmpctx, buf, toks, "{2:two,1:one,3:{three:{deeper:17}},arr:[1:2,2:[0:3,1:4]]}"));

	/* Optional fields which are present are fine. */
	assert(!json_scan(tmpctx, buf, toks, "{1?:one}"));
	assert(!json_scan(tmpctx, buf, toks, "{1?:one,2?:two}"));
	assert(!json_scan(tmpctx, buf, toks, "{2?:two,1?:one}"));
	assert(!json_scan(tmpctx, buf, toks, "{2?:two,1?:one,3?:{three?:{deeper?:17}}}"));
	assert(!json_scan(tmpctx, buf, toks, "{2?:two,1?:one,3?:{three?:{deeper?:17}},arr?:[0:{1?:arrone}]}"));
	assert(!json_scan(tmpctx, buf, toks, "{2?:two,1?:one,3?:{three?:{deeper?:17}},arr?:[1:2]}"));
	assert(!json_scan(tmpctx, buf, toks, "{2?:two,1?:one,3?:{three?:{deeper?:17}},arr?:[1:2,2:[0:3,1:4]]}"));

	/* Optional field which are missing are fine too */
	assert(!json_scan(tmpctx, buf, toks, "{5?:one}"));
	assert(!json_scan(tmpctx, buf, toks, "{1:one,5?:two}"));
	assert(!json_scan(tmpctx, buf, toks, "{2:two,5?:one}"));
	assert(!json_scan(tmpctx, buf, toks, "{2:two,1:one,5?:{three:{deeper:17}}}"));
	assert(!json_scan(tmpctx, buf, toks, "{2:two,1:one,3:{five?:{deeper:17}},arr:[0:{1:arrone}]}"));
	assert(!json_scan(tmpctx, buf, toks, "{2:two,1:one,3:{three:{notdeeper?:17}},arr:[1:2]}"));
	assert(!json_scan(tmpctx, buf, toks, "{2:two,1:one,3:{three:{deeper:17}},notarr?:[1:2,2:[0:3,1:4]]}"));

	/* These do not match */
	err = json_scan(tmpctx, buf, toks, "{2:one}");
	assert(streq(err, "Parsing '{2:one': \"two\" does not match expected one"));
	err = json_scan(tmpctx, buf, toks, "{1:one,2:tw}");
	assert(streq(err, "Parsing '{1:one,2:tw': \"two\" does not match expected tw"));
	err = json_scan(tmpctx, buf, toks, "{1:one,2:twoo}");
	assert(streq(err, "Parsing '{1:one,2:twoo': \"two\" does not match expected twoo"));
	err = json_scan(tmpctx, buf, toks, "{4:one}");
	assert(streq(err, "Parsing '{4:': object does not have member 4"));
	err = json_scan(tmpctx, buf, toks, "{2:two,1:one,3:three}");
	assert(streq(err, "Parsing '{2:two,1:one,3:three': {\"three\": {\"deeper\": 17}} does not match expected three"));
	err = json_scan(tmpctx, buf, toks, "{3:{three:deeper}}");
	assert(streq(err, "Parsing '{3:{three:deeper': {\"deeper\": 17} does not match expected deeper"));
	err = json_scan(tmpctx, buf, toks, "{3:{three:{deeper:{}}}}");
	assert(streq(err, "Parsing '{3:{three:{deeper:{': token is not an object: 17"));