Function main

common/test/run-json_scan.c:118–202

}

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]]}"));

	/* 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"));
	err = json_scan(tmpctx, buf, toks, "{arr:{}}");
	assert(streq(err, "Parsing '{arr:{': token is not an object: [{\"1\": \"arrone\"}, 2, [3, 4]]"));
	err = json_scan(tmpctx, buf, toks, "{arr:[0:1]}");
	assert(streq(err, "Parsing '{arr:[0:1': {\"1\": \"arrone\"} does not match expected 1"));
	err = json_scan(tmpctx, buf, toks, "{arr:[4:0]}");
	assert(streq(err, "Parsing '{arr:[4:': token has no index 4: [{\"1\": \"arrone\"}, 2, [3, 4]]"));
	err = json_scan(tmpctx, buf, toks, "{arr:[0:{1:arrtwo}]}");
	assert(streq(err, "Parsing '{arr:[0:{1:arrtwo': \"arrone\" does not match expected arrtwo"));
	err = json_scan(tmpctx, buf, toks, "{arr:[1:3]}");
	assert(streq(err, "Parsing '{arr:[1:3': 2 does not match expected 3"));
	err = json_scan(tmpctx, buf, toks, "{arr:[2:[0:1]]}");
	assert(streq(err, "Parsing '{arr:[2:[0:1': 3 does not match expected 1"));

	/* These capture simple values. */
	assert(!json_scan(tmpctx, buf, toks, "{3:{three:{deeper:%}}}",
			  JSON_SCAN(json_to_number, &u32val)));
	assert(u32val == 17);
	err = json_scan(tmpctx, buf, toks, "{1:%}",