mirror of https://github.com/svaarala/duktape.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
70 lines
1.9 KiB
70 lines
1.9 KiB
/*===
|
|
*** test_basic (duk_safe_call)
|
|
top: 9
|
|
index 0, my_func 0, dummy_func: 1
|
|
index 1: TypeError: nativefunction required, found null (stack index 1)
|
|
index 2: TypeError: nativefunction required, found true (stack index 2)
|
|
index 3: TypeError: nativefunction required, found false (stack index 3)
|
|
index 4: TypeError: nativefunction required, found 'foo' (stack index 4)
|
|
index 5: TypeError: nativefunction required, found 123 (stack index 5)
|
|
index 6: TypeError: nativefunction required, found [object Object] (stack index 6)
|
|
index 7: TypeError: nativefunction required, found (0xdeadbeef) (stack index 7)
|
|
index 8, my_func 1, dummy_func: 0
|
|
index 9, my_func 0, dummy_func: 1
|
|
final top: 9
|
|
==> rc=0, result='undefined'
|
|
===*/
|
|
|
|
static duk_ret_t my_func(duk_context *ctx) {
|
|
(void) ctx;
|
|
return 0;
|
|
}
|
|
|
|
static duk_ret_t dummy_func(duk_context *ctx) {
|
|
(void) ctx;
|
|
return 1;
|
|
}
|
|
|
|
static duk_ret_t safe_helper(duk_context *ctx, void *udata) {
|
|
duk_idx_t idx = (duk_idx_t) udata & 0xffffffffUL;
|
|
duk_c_function funcptr;
|
|
|
|
funcptr = duk_opt_c_function(ctx, idx, dummy_func);
|
|
printf("index %ld, my_func %d, dummy_func: %d\n",
|
|
(long) idx, (funcptr == my_func), (funcptr == dummy_func));
|
|
return 0;
|
|
}
|
|
|
|
duk_ret_t test_basic(duk_context *ctx, void *udata) {
|
|
duk_idx_t i, n;
|
|
duk_int_t rc;
|
|
|
|
(void) udata;
|
|
|
|
duk_push_undefined(ctx);
|
|
duk_push_null(ctx);
|
|
duk_push_true(ctx);
|
|
duk_push_false(ctx);
|
|
duk_push_string(ctx, "foo");
|
|
duk_push_int(ctx, 123);
|
|
duk_push_object(ctx);
|
|
duk_push_pointer(ctx, (void *) 0xdeadbeefUL);
|
|
duk_push_c_function(ctx, my_func, 1 /*nargs*/);
|
|
|
|
n = duk_get_top(ctx);
|
|
printf("top: %ld\n", (long) n);
|
|
for (i = 0; i <= n; i++) {
|
|
rc = duk_safe_call(ctx, safe_helper, (void *) i, 0, 1);
|
|
if (rc != DUK_EXEC_SUCCESS) {
|
|
printf("index %ld: %s\n", (long) i, duk_safe_to_string(ctx, -1));
|
|
}
|
|
duk_pop(ctx);
|
|
}
|
|
|
|
printf("final top: %ld\n", (long) duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
void test(duk_context *ctx) {
|
|
TEST_SAFE_CALL(test_basic);
|
|
}
|
|
|