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.
101 lines
2.2 KiB
101 lines
2.2 KiB
/*===
|
|
*** test_1 (duk_safe_call)
|
|
strict: 0
|
|
Math.PI = 3.141592653589793
|
|
final top: 0
|
|
==> rc=0, result='undefined'
|
|
*** test_1 (duk_pcall)
|
|
strict: 1
|
|
Math.PI = 3.141592653589793
|
|
final top: 0
|
|
==> rc=0, result='undefined'
|
|
*** test_2 (duk_safe_call)
|
|
strict: 0
|
|
==> rc=1, result='ReferenceError: identifier 'no-such-property' undefined'
|
|
*** test_2 (duk_pcall)
|
|
strict: 1
|
|
==> rc=1, result='ReferenceError: identifier 'no-such-property' undefined'
|
|
*** test_3 (duk_safe_call)
|
|
strict: 0
|
|
==> rc=1, result='TypeError: incorrect type, expected tag 5'
|
|
*** test_3 (duk_pcall)
|
|
strict: 1
|
|
==> rc=1, result='TypeError: incorrect type, expected tag 5'
|
|
*** test_4 (duk_safe_call)
|
|
strict: 0
|
|
==> rc=1, result='TypeError: incorrect type, expected tag 5'
|
|
*** test_4 (duk_pcall)
|
|
strict: 1
|
|
==> rc=1, result='TypeError: incorrect type, expected tag 5'
|
|
===*/
|
|
|
|
/* existing property */
|
|
int test_1(duk_context *ctx) {
|
|
printf("strict: %d\n", duk_is_strict_call(ctx));
|
|
|
|
duk_set_top(ctx, 0);
|
|
|
|
duk_push_string(ctx, "Math");
|
|
duk_get_var(ctx);
|
|
duk_get_prop_string(ctx, -1, "PI");
|
|
printf("Math.PI = %s\n", duk_to_string(ctx, -1));
|
|
duk_pop_2(ctx);
|
|
|
|
printf("final top: %d\n", duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
/* nonexistent -> throw, even in non-strict mode */
|
|
int test_2(duk_context *ctx) {
|
|
printf("strict: %d\n", duk_is_strict_call(ctx));
|
|
|
|
duk_set_top(ctx, 0);
|
|
|
|
duk_push_string(ctx, "no-such-property");
|
|
duk_get_var(ctx);
|
|
printf("value=%s\n", duk_to_string(ctx, -1));
|
|
duk_pop(ctx);
|
|
|
|
printf("final top: %d\n", duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
/* Variable name is not a string */
|
|
int test_3(duk_context *ctx) {
|
|
printf("strict: %d\n", duk_is_strict_call(ctx));
|
|
|
|
duk_set_top(ctx, 0);
|
|
|
|
duk_push_int(ctx, 123);
|
|
duk_get_var(ctx);
|
|
duk_pop(ctx);
|
|
|
|
printf("final top: %d\n", duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
/* Value stack is empty (no varname at all) */
|
|
int test_4(duk_context *ctx) {
|
|
printf("strict: %d\n", duk_is_strict_call(ctx));
|
|
|
|
duk_set_top(ctx, 0);
|
|
|
|
duk_push_int(ctx, 123);
|
|
duk_get_var(ctx);
|
|
duk_pop(ctx);
|
|
|
|
printf("final top: %d\n", duk_get_top(ctx));
|
|
return 0;
|
|
}
|
|
|
|
void test(duk_context *ctx) {
|
|
TEST_SAFE_CALL(test_1);
|
|
TEST_PCALL(test_1);
|
|
TEST_SAFE_CALL(test_2);
|
|
TEST_PCALL(test_2);
|
|
TEST_SAFE_CALL(test_3);
|
|
TEST_PCALL(test_3);
|
|
TEST_SAFE_CALL(test_4);
|
|
TEST_PCALL(test_4);
|
|
}
|
|
|
|
|