2  * Copyright 2022-2025 The OpenSSL Project Authors. All Rights Reserved.
25     if (h->init)  in helper_ensure()
28     if (!TEST_ptr(h->mem_bio = BIO_new(BIO_s_mem())))  in helper_ensure()
31     if (!ossl_json_init(&h->j, h->mem_bio, h->flags)) {  in helper_ensure()
32         BIO_free_all(h->mem_bio);  in helper_ensure()
33         h->mem_bio = NULL;  in helper_ensure()
37     h->init = 1;  in helper_ensure()
43     BIO_free_all(h->mem_bio);  in helper_cleanup()
44     h->mem_bio = NULL;  in helper_cleanup()
46     if (h->init) {  in helper_cleanup()
47         ossl_json_cleanup(&h->j);  in helper_cleanup()
48         h->init = 0;  in helper_cleanup()
55     h->flags = flags;  in helper_set_flags()
156 #define END_SCRIPT_EXPECTING_Q(s)   END_SCRIPT_EXPECTING(#s, sizeof(#s) - 1)
226 BEGIN_SCRIPT(i64_m1, "serialize i64(-1)", 0)
227     OPJ_I64(-1)
228 END_SCRIPT_EXPECTING_Q(-1)
230 BEGIN_SCRIPT(i64_m2, "serialize i64(-2)", 0)
231     OPJ_I64(-2)
232 END_SCRIPT_EXPECTING_Q(-2)
234 BEGIN_SCRIPT(i64_m10, "serialize i64(-10)", 0)
235     OPJ_I64(-10)
236 END_SCRIPT_EXPECTING_Q(-10)
238 BEGIN_SCRIPT(i64_m12345, "serialize i64(-12345)", 0)
239     OPJ_I64(-12345)
240 END_SCRIPT_EXPECTING_Q(-12345)
242 BEGIN_SCRIPT(i64_m9223372036854775807, "serialize i64(-9223372036854775807)", 0)
243     OPJ_I64(-9223372036854775807LL)
244 END_SCRIPT_EXPECTING_Q(-9223372036854775807)
246 BEGIN_SCRIPT(i64_m9223372036854775808, "serialize i64(-9223372036854775808)", 0)
247     OPJ_I64(-9223372036854775807LL - 1LL)
248 END_SCRIPT_EXPECTING_Q(-9223372036854775808)
271     OPJ_STR("abc\"\"de'f\r\n\t\b\f\\\x01\v\x7f\\")
272 END_SCRIPT_EXPECTING_Q("abc\"\"de'f\r\n\t\b\f\\\u0001\u000b\u007f\\")
274 BEGIN_SCRIPT(str_len, "length-signalled string", 0)
278 BEGIN_SCRIPT(str_len0, "0-length-signalled string", 0)
286 BEGIN_SCRIPT(hex_data0, "zero-length hex data", 0)
402     OPJ_I64(-1)
404     OPJ_I64(-2)
407 END_SCRIPT_EXPECTING_S("{\"\":{\"x\":42},\"x\":[42,101],\"y\":null,\"z\":{\"z0\":-1,\"z1\":-2}}")
441 BEGIN_SCRIPT(utf8_2, "test: valid UTF-8 2byte supported", 0)
446 BEGIN_SCRIPT(utf8_3, "test: valid UTF-8 3byte supported", 0)
451 BEGIN_SCRIPT(utf8_4, "test: valid UTF-8 4byte supported", 0)
456 BEGIN_SCRIPT(ijson_int, "I-JSON: large integer", OSSL_JSON_FLAG_IJSON)
459     OPJ_I64(-1)
462     OPJ_I64(-9007199254740991)
463     OPJ_I64(-9007199254740992)
465 END_SCRIPT_EXPECTING_S("[1,-1,9007199254740991,\"9007199254740992\",-9007199254740991,\"-9007199254…
476 BEGIN_SCRIPT(seq, "JSON-SEQ", OSSL_JSON_FLAG_SEQ)
545     int ok = 0, asserted = -1;  in run_script()  local
546     const struct script_word *words = info->words;  in run_script()
552     TEST_info("running script '%s' (%s)", info->name, info->title);  in run_script()
636             asserted = (int)GET_U64();  in run_script()
637             if (!TEST_int_eq(ossl_json_in_error(&h.j), asserted))  in run_script()
657     if (asserted < 0 && !TEST_false(ossl_json_in_error(&h.j)))  in run_script()
663     if (!TEST_mem_eq(bufp->data, bufp->length,  in run_script()
664                      info->expected_output,  in run_script()
665                      info->expected_output_len == SIZE_MAX  in run_script()
666                         ? strlen(info->expected_output)  in run_script()
667                         : info->expected_output_len))  in run_script()
673         TEST_error("script '%s' failed", info->name);  in run_script()