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.
57 lines
1.6 KiB
57 lines
1.6 KiB
/*===
|
|
*** test_1 (duk_safe_call)
|
|
top: 3, top index: 2
|
|
final top: 3
|
|
==> rc=0, result='undefined'
|
|
*** test_2 (duk_safe_call)
|
|
top: 0, top index is DUK_INVALID: 1
|
|
final top: 0
|
|
==> rc=0, result='undefined'
|
|
*** test_3 (duk_safe_call)
|
|
top: 3, top index: 2
|
|
final top: 3
|
|
==> rc=0, result='undefined'
|
|
*** test_4 (duk_safe_call)
|
|
==> rc=1, result='Error: invalid index'
|
|
===*/
|
|
|
|
static duk_ret_t test_1(duk_context *ctx) {
|
|
duk_set_top(ctx, 0);
|
|
duk_push_int(ctx, 123);
|
|
duk_push_int(ctx, 123);
|
|
duk_push_int(ctx, 123);
|
|
printf("top: %ld, top index: %ld\n", (long) duk_get_top(ctx), (long) duk_get_top_index(ctx));
|
|
printf("final top: %ld\n", (long) duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
static duk_ret_t test_2(duk_context *ctx) {
|
|
duk_set_top(ctx, 0);
|
|
printf("top: %ld, top index is DUK_INVALID: %d\n", (long) duk_get_top(ctx), duk_get_top_index(ctx) == DUK_INVALID_INDEX ? 1 : 0);
|
|
printf("final top: %ld\n", (long) duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
static duk_ret_t test_3(duk_context *ctx) {
|
|
duk_set_top(ctx, 0);
|
|
duk_push_int(ctx, 123);
|
|
duk_push_int(ctx, 123);
|
|
duk_push_int(ctx, 123);
|
|
printf("top: %ld, top index: %ld\n", (long) duk_get_top(ctx), (long) duk_require_top_index(ctx));
|
|
printf("final top: %ld\n", (long) duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
static duk_ret_t test_4(duk_context *ctx) {
|
|
duk_set_top(ctx, 0);
|
|
printf("top: %ld, top index: %ld\n", (long) duk_get_top(ctx), (long) duk_require_top_index(ctx));
|
|
printf("final top: %ld\n", (long) duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
void test(duk_context *ctx) {
|
|
TEST_SAFE_CALL(test_1);
|
|
TEST_SAFE_CALL(test_2);
|
|
TEST_SAFE_CALL(test_3);
|
|
TEST_SAFE_CALL(test_4);
|
|
}
|
|
|