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.
152 lines
3.2 KiB
152 lines
3.2 KiB
/*===
|
|
*** test_1 (duk_safe_call)
|
|
[ 123 234 345 456 567 ]
|
|
[ 123 234 345 456 567 ]
|
|
[ 123 456 345 234 567 ]
|
|
[ 123 456 567 234 345 ]
|
|
[ 123 456 567 234 345 ]
|
|
final top: 5
|
|
==> rc=0, result='undefined'
|
|
*** test_2a (duk_safe_call)
|
|
==> rc=1, result='Error: index out of bounds'
|
|
*** test_2b (duk_safe_call)
|
|
==> rc=1, result='Error: index out of bounds'
|
|
*** test_2c (duk_safe_call)
|
|
==> rc=1, result='Error: index out of bounds'
|
|
*** test_2d (duk_safe_call)
|
|
==> rc=1, result='Error: index out of bounds'
|
|
*** test_3a (duk_safe_call)
|
|
==> rc=1, result='Error: index out of bounds'
|
|
*** test_3b (duk_safe_call)
|
|
==> rc=1, result='Error: index out of bounds'
|
|
*** test_3c (duk_safe_call)
|
|
==> rc=1, result='Error: index out of bounds'
|
|
===*/
|
|
|
|
void dump_stack(duk_context *ctx) {
|
|
int i, n;
|
|
|
|
printf("[");
|
|
n = duk_get_top(ctx);
|
|
for (i = 0; i < n; i++) {
|
|
printf(" %ld", (long) duk_get_int(ctx, i));
|
|
}
|
|
printf(" ]\n");
|
|
}
|
|
|
|
int test_1(duk_context *ctx) {
|
|
duk_set_top(ctx, 0);
|
|
|
|
duk_push_int(ctx, 123);
|
|
duk_push_int(ctx, 234);
|
|
duk_push_int(ctx, 345);
|
|
duk_push_int(ctx, 456);
|
|
duk_push_int(ctx, 567); /* [ 123 234 345 456 567 ] */
|
|
dump_stack(ctx);
|
|
|
|
/* no-op swap */
|
|
duk_swap(ctx, -1, -1);
|
|
dump_stack(ctx);
|
|
|
|
/* actual swap */
|
|
duk_swap(ctx, 1, -2); /* -> [ 123 456 345 234 567 ] */
|
|
dump_stack(ctx);
|
|
|
|
/* swap top */
|
|
duk_swap_top(ctx, -3); /* -> [ 123 456 567 234 345 ] */
|
|
dump_stack(ctx);
|
|
|
|
/* no-op swap top */
|
|
duk_swap_top(ctx, 4);
|
|
dump_stack(ctx);
|
|
|
|
printf("final top: %d\n", duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
int test_2a(duk_context *ctx) {
|
|
duk_set_top(ctx, 0);
|
|
|
|
duk_push_int(ctx, 123);
|
|
duk_push_int(ctx, 234);
|
|
duk_swap(ctx, -1, -3); /* second index out of bounds */
|
|
|
|
printf("final top: %d\n", duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
int test_2b(duk_context *ctx) {
|
|
duk_set_top(ctx, 0);
|
|
|
|
duk_push_int(ctx, 123);
|
|
duk_push_int(ctx, 234);
|
|
duk_swap(ctx, 6, 1); /* first index out of bounds */
|
|
|
|
printf("final top: %d\n", duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
int test_2c(duk_context *ctx) {
|
|
duk_set_top(ctx, 0);
|
|
|
|
duk_push_int(ctx, 123);
|
|
duk_push_int(ctx, 234);
|
|
duk_swap(ctx, DUK_INVALID_INDEX, 0); /* first index DUK_INVALID_INDEX */
|
|
|
|
printf("final top: %d\n", duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
int test_2d(duk_context *ctx) {
|
|
duk_set_top(ctx, 0);
|
|
|
|
duk_push_int(ctx, 123);
|
|
duk_push_int(ctx, 234);
|
|
duk_swap(ctx, 0, DUK_INVALID_INDEX); /* second index DUK_INVALID_INDEX */
|
|
|
|
printf("final top: %d\n", duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
int test_3a(duk_context *ctx) {
|
|
duk_set_top(ctx, 0);
|
|
|
|
duk_swap_top(ctx, 0); /* empty stack */
|
|
|
|
printf("final top: %d\n", duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
int test_3b(duk_context *ctx) {
|
|
duk_set_top(ctx, 0);
|
|
|
|
duk_push_int(ctx, 123);
|
|
duk_push_int(ctx, 234);
|
|
duk_swap_top(ctx, 2); /* index out of bounds */
|
|
|
|
printf("final top: %d\n", duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
int test_3c(duk_context *ctx) {
|
|
duk_set_top(ctx, 0);
|
|
|
|
duk_push_int(ctx, 123);
|
|
duk_push_int(ctx, 234);
|
|
duk_swap_top(ctx, DUK_INVALID_INDEX); /* index is DUK_INVALID_INDEX */
|
|
|
|
printf("final top: %d\n", duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
void test(duk_context *ctx) {
|
|
TEST_SAFE_CALL(test_1);
|
|
TEST_SAFE_CALL(test_2a);
|
|
TEST_SAFE_CALL(test_2b);
|
|
TEST_SAFE_CALL(test_2c);
|
|
TEST_SAFE_CALL(test_2d);
|
|
TEST_SAFE_CALL(test_3a);
|
|
TEST_SAFE_CALL(test_3b);
|
|
TEST_SAFE_CALL(test_3c);
|
|
}
|
|
|
|
|