/*

* Symbol related tests which can only be done from the C API.

*/

/*===

*** test_push_string (duk_safe_call)

symbol

Symbol(mySymbol)

final top: 0

==> rc=0, result='undefined'

*** test_traceback (duk_safe_call)

Error: aiee

at [anon] (:1)

at test (eval:3) preventsyield

final top: 1

==> rc=0, result='undefined'

===*/

static duk_ret_t test_push_string(duk_context *ctx, void *udata) {

(void) udata;

/* duk_push_(l)string() always pushes a string, but that string gets

* interpreted as a symbol if it is invalid CESU-8 / extended UTF-8

* and matches the symbol internal string formats.

*/

duk_eval_string(ctx, "(function (v) { print(typeof v); print(String(v)); })");

duk_push_string(ctx, "\x81" "mySymbol" "\xff" "unique1234");

duk_call(ctx, 1);

duk_pop(ctx);

printf("final top: %ld\n", (long) duk_get_top(ctx));

return 0;

}

static duk_ret_t test_traceback(duk_context *ctx, void *udata) {

duk_eval_string(ctx,

"(function test(fn) {\n"

" try {\n"

" fn();\n"

" } catch (e) {\n"

" print(e.stack);\n"

" }\n"

"})\n");

/* If function .name and/or .fileName is a symbol, it is ignored

* in tracebacks. This is very much a corner case, and can only

* be created from C code now to override the non-configurability

* of the properties.

*/

duk_eval_string(ctx, "(function foo() { throw new Error('aiee'); })");

duk_push_string(ctx, "name");

duk_push_string(ctx, "\x80" "nameSymbol");

duk_def_prop(ctx, -3, DUK_DEFPROP_HAVE_VALUE | DUK_DEFPROP_FORCE);

duk_push_string(ctx, "fileName");

duk_push_string(ctx, "\x80" "fileNameSymbol");

duk_def_prop(ctx, -3, DUK_DEFPROP_HAVE_VALUE | DUK_DEFPROP_FORCE);

duk_call(ctx, 1);

printf("final top: %ld\n", (long) duk_get_top(ctx));

return 0;

}

void test(duk_context *ctx) {

TEST_SAFE_CALL(test_push_string);

TEST_SAFE_CALL(test_traceback);

}