/*===
*** test_1 (duk_safe_call)
i=0, n=19, charcode=102
i=1, n=19, charcode=111
i=2, n=19, charcode=111
i=3, n=19, charcode=4660
i=4, n=19, charcode=98
i=5, n=19, charcode=97
i=6, n=19, charcode=114
i=7, n=19, charcode=160
i=8, n=19, charcode=113
i=9, n=19, charcode=117
i=10, n=19, charcode=117
i=11, n=19, charcode=120
i=12, n=19, charcode=0
i=13, n=19, charcode=98
i=14, n=19, charcode=97
i=15, n=19, charcode=122
i=16, n=19, charcode=0
i=17, n=19, charcode=0
i=18, n=19, charcode=0
==> rc=0, result='undefined'
*** test_2 (duk_safe_call)
==> rc=1, result='TypeError: incorrect type, expected tag 5'
===*/

static int test_1(duk_context *ctx) {
	int i, n;

	/* Simple test, intentional out-of-bounds access at the end. */

	duk_eval_string(ctx, "'foo\\u1234bar\\u00a0quux\\u0000baz'");

	n = duk_get_length(ctx, -1) + 3;  /* access 3 times out-of-bounds */
	for (i = 0; i < n; i++) {
		printf("i=%d, n=%d, charcode=%d\n", i, n, (int) duk_char_code_at(ctx, -1, i));
	}

	duk_pop(ctx);
	return 0;
}

static int test_2(duk_context *ctx) {
	/* TypeError for invalid arg type */

	duk_push_int(ctx, 123);
	(void) duk_char_code_at(ctx, -1, 10);
	duk_pop(ctx);
	return 0;
}

void test(duk_context *ctx) {
	TEST_SAFE_CALL(test_1);
	TEST_SAFE_CALL(test_2);
}