/*===
*** test_1 (duk_safe_call)
==> rc=1, result='Error: attempt to push beyond currently allocated stack'
*** check_1 (duk_safe_call)
rc=1
final top: 1000
==> rc=0, result='undefined'
*** check_2 (duk_safe_call)
final top: 1000
==> rc=0, result='undefined'
*** check_3 (duk_safe_call)
rc=0
final top: 0
==> rc=0, result='undefined'
*** require_1 (duk_safe_call)
final top: 1000
==> rc=0, result='undefined'
*** require_2 (duk_safe_call)
final top: 1000
==> rc=0, result='undefined'
*** require_3 (duk_safe_call)
==> rc=1, result='Error: valstack limit reached'
===*/

/* demonstrate how pushing too many elements causes an error */
int test_1(duk_context *ctx) {
	int i;

	for (i = 0; i < 1000; i++) {
		duk_push_int(ctx, 123);
	}

	printf("final top: %d\n", duk_get_top(ctx));
	return 0;
}

/* demonstrate how using one large duk_check_stack_top() before such
 * a loop works.
 */
int check_1(duk_context *ctx) {
	int i;
	int rc;

	rc = duk_check_stack_top(ctx, 1000);
	printf("rc=%d\n", rc);

	for (i = 0; i < 1000; i++) {
		duk_push_int(ctx, 123);
	}

	printf("final top: %d\n", duk_get_top(ctx));
	return 0;
}

/* same test but with one element checks, once per loop */
int check_2(duk_context *ctx) {
	int i;
	int rc;

	for (i = 0; i < 1000; i++) {
		rc = duk_check_stack_top(ctx, i + 1);
		if (rc == 0) {
			printf("duk_check_stack failed\n");
		}
		duk_push_int(ctx, 123);
	}

	printf("final top: %d\n", duk_get_top(ctx));
	return 0;
}

/* try to extend value stack too much with duk_check_stack_top */
int check_3(duk_context *ctx) {
	int rc;

	rc = duk_check_stack_top(ctx, 1000*1000*1000);
	printf("rc=%d\n", rc);  /* should print 0: fail */

	printf("final top: %d\n", duk_get_top(ctx));
	return 0;
}

/* same as check_1 but with duk_require_stack_top() */
int require_1(duk_context *ctx) {
	int i;

	duk_require_stack_top(ctx, 1000);

	for (i = 0; i < 1000; i++) {
		duk_push_int(ctx, 123);
	}

	printf("final top: %d\n", duk_get_top(ctx));
	return 0;
}

/* same as check_2 but with duk_require_stack_top() */
int require_2(duk_context *ctx) {
	int i;

	for (i = 0; i < 1000; i++) {
		duk_require_stack_top(ctx, i + 1);
		duk_push_int(ctx, 123);
	}

	printf("final top: %d\n", duk_get_top(ctx));
	return 0;
}

/* same as check_3 but with duk_require_stack_top */
int require_3(duk_context *ctx) {
	duk_require_stack_top(ctx, 1000*1000*1000);

	printf("final top: %d\n", duk_get_top(ctx));
	return 0;
}

void test(duk_context *ctx) {
	TEST_SAFE_CALL(test_1);
	TEST_SAFE_CALL(check_1);
	TEST_SAFE_CALL(check_2);
	TEST_SAFE_CALL(check_3);
	TEST_SAFE_CALL(require_1);
	TEST_SAFE_CALL(require_2);
	TEST_SAFE_CALL(require_3);
}