api test for duk_char_code_at()

api-testcases/test-charcodeat.c

@@ -0,0 +1,55 @@
+/*===
+*** 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);
+}