/*===
*** 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);
}