/*===
*** test_1a (duk_safe_call)
16 bytes (dynamic): 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2
q is NULL: 0
p == q: 0
sz=16
16 bytes (fixed): 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2
r is NULL: 0
q == r: 1
16 bytes (fixed): 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2
final top: 1
==> rc=0, result='undefined'
*** test_1b (duk_safe_call)
16 bytes (fixed): 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2
q is NULL: 0
p == q: 0
sz=16
16 bytes (dynamic): 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2
r is NULL: 0
q == r: 1
16 bytes (dynamic): 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2
final top: 1
==> rc=0, result='undefined'
*** test_2a (duk_safe_call)
16 bytes (fixed): 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2
q is NULL: 0
p == q: 1
sz=16
16 bytes (fixed): 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2
final top: 1
==> rc=0, result='undefined'
*** test_2b (duk_safe_call)
16 bytes (dynamic): 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2
q is NULL: 0
p == q: 1
sz=16
16 bytes (dynamic): 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2
final top: 1
==> rc=0, result='undefined'
*** test_3a (duk_safe_call)
q is NULL: 0
sz=3
3 bytes (fixed): 102 111 111
final top: 1
==> rc=0, result='undefined'
*** test_3b (duk_safe_call)
q is NULL: 0
sz=3
3 bytes (dynamic): 102 111 111
final top: 1
==> rc=0, result='undefined'
*** test_4a (duk_safe_call)
==> rc=1, result='Error: invalid index'
*** test_4b (duk_safe_call)
==> rc=1, result='Error: invalid index'
*** test_5a (duk_safe_call)
==> rc=1, result='Error: invalid index'
*** test_5b (duk_safe_call)
==> rc=1, result='Error: invalid index'
===*/

static void dump_buffer(duk_context *ctx) {
	unsigned char *p;
	duk_size_t i, sz;

	p = (unsigned char *) duk_require_buffer(ctx, -1, &sz);
	printf("%lu bytes (%s):", (unsigned long) sz,
	       (int) duk_is_dynamic_buffer(ctx, -1) ? "dynamic" : "fixed");
	for (i = 0; i < sz; i++) {
		printf(" %d", (int) p[i]);
	}
	printf("\n");
}

/* source: dynamic buffer, target: fixed buffer */
static duk_ret_t test_1a(duk_context *ctx) {
	unsigned char *p;
	void *q, *r;
	duk_size_t sz;

	duk_set_top(ctx, 0);

	p = (unsigned char *) duk_push_dynamic_buffer(ctx, 16);
	p[0] = 1;
	p[15] = 2;
	dump_buffer(ctx);

	sz = (duk_size_t) 1234;
	q = duk_to_fixed_buffer(ctx, -1, &sz);
	printf("q is NULL: %d\n", (q == NULL ? 1 : 0));
	printf("p == q: %d\n", (p == q ? 1 : 0));
	printf("sz=%lu\n", (unsigned long) sz);
	dump_buffer(ctx);

	/* second time should be a no-op */
	r = duk_to_fixed_buffer(ctx, -1, NULL);
	printf("r is NULL: %d\n", (q == NULL ? 1 : 0));
	printf("q == r: %d\n", (q == r ? 1 : 0));
	dump_buffer(ctx);

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

/* source: fixed buffer, target: dynamic buffer */
static duk_ret_t test_1b(duk_context *ctx) {
	unsigned char *p;
	void *q, *r;
	duk_size_t sz;

	duk_set_top(ctx, 0);

	p = (unsigned char *) duk_push_fixed_buffer(ctx, 16);
	p[0] = 1;
	p[15] = 2;
	dump_buffer(ctx);

	sz = (duk_size_t) 1234;
	q = duk_to_dynamic_buffer(ctx, -1, &sz);
	printf("q is NULL: %d\n", (q == NULL ? 1 : 0));
	printf("p == q: %d\n", (p == q ? 1 : 0));
	printf("sz=%lu\n", (unsigned long) sz);
	dump_buffer(ctx);

	/* second time should be a no-op */
	r = duk_to_dynamic_buffer(ctx, -1, NULL);
	printf("r is NULL: %d\n", (q == NULL ? 1 : 0));
	printf("q == r: %d\n", (q == r ? 1 : 0));
	dump_buffer(ctx);

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

/* source: fixed buffer, target: fixed buffer */
static duk_ret_t test_2a(duk_context *ctx) {
	unsigned char *p;
	void *q;
	duk_size_t sz;

	duk_set_top(ctx, 0);

	p = (unsigned char *) duk_push_fixed_buffer(ctx, 16);
	p[0] = 1;
	p[15] = 2;
	dump_buffer(ctx);

	q = duk_to_fixed_buffer(ctx, -1, &sz);
	printf("q is NULL: %d\n", (q == NULL ? 1 : 0));
	printf("p == q: %d\n", (p == q ? 1 : 0));
	printf("sz=%lu\n", (unsigned long) sz);
	dump_buffer(ctx);

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

/* source: dynamic buffer, target: dynamic buffer */
static duk_ret_t test_2b(duk_context *ctx) {
	unsigned char *p;
	void *q;
	duk_size_t sz;

	duk_set_top(ctx, 0);

	p = (unsigned char *) duk_push_dynamic_buffer(ctx, 16);
	p[0] = 1;
	p[15] = 2;
	dump_buffer(ctx);

	q = duk_to_dynamic_buffer(ctx, -1, &sz);
	printf("q is NULL: %d\n", (q == NULL ? 1 : 0));
	printf("p == q: %d\n", (p == q ? 1 : 0));
	printf("sz=%lu\n", (unsigned long) sz);
	dump_buffer(ctx);

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

/* source: non-buffer, target: fixed buffer */
static duk_ret_t test_3a(duk_context *ctx) {
	void *q;
	duk_size_t sz;

	duk_set_top(ctx, 0);
	duk_push_string(ctx, "foo");

	q = duk_to_fixed_buffer(ctx, -1, &sz);
	printf("q is NULL: %d\n", (q == NULL ? 1 : 0));
	printf("sz=%lu\n", (unsigned long) sz);
	dump_buffer(ctx);

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

/* source: non-buffer, target: dynamic buffer */
static duk_ret_t test_3b(duk_context *ctx) {
	void *q;
	duk_size_t sz;

	duk_set_top(ctx, 0);
	duk_push_string(ctx, "foo");

	q = duk_to_dynamic_buffer(ctx, -1, &sz);
	printf("q is NULL: %d\n", (q == NULL ? 1 : 0));
	printf("sz=%lu\n", (unsigned long) sz);
	dump_buffer(ctx);

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

/* invalid index, target: fixed buffer */
static duk_ret_t test_4a(duk_context *ctx) {
	void *q;
	duk_size_t sz;

	duk_set_top(ctx, 0);

	q = duk_to_fixed_buffer(ctx, 3, &sz);
	printf("q is NULL: %d\n", (q == NULL ? 1 : 0));
	printf("sz=%lu\n", (unsigned long) sz);

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

/* invalid index, target: dynamic buffer */
static duk_ret_t test_4b(duk_context *ctx) {
	void *q;
	duk_size_t sz;

	duk_set_top(ctx, 0);

	q = duk_to_dynamic_buffer(ctx, 3, &sz);
	printf("q is NULL: %d\n", (q == NULL ? 1 : 0));
	printf("sz=%lu\n", (unsigned long) sz);

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

/* DUK_INVALID_INDEX, target: fixed buffer */
static duk_ret_t test_5a(duk_context *ctx) {
	void *q;
	duk_size_t sz;

	duk_set_top(ctx, 0);

	q = duk_to_fixed_buffer(ctx, DUK_INVALID_INDEX, &sz);
	printf("q is NULL: %d\n", (q == NULL ? 1 : 0));
	printf("sz=%lu\n", (unsigned long) sz);

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

/* DUK_INVALID_INDEX, target: dynamic buffer */
static duk_ret_t test_5b(duk_context *ctx) {
	void *q;
	duk_size_t sz;

	duk_set_top(ctx, 0);

	q = duk_to_dynamic_buffer(ctx, DUK_INVALID_INDEX, &sz);
	printf("q is NULL: %d\n", (q == NULL ? 1 : 0));
	printf("sz=%lu\n", (unsigned long) sz);

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

void test(duk_context *ctx) {
	TEST_SAFE_CALL(test_1a);
	TEST_SAFE_CALL(test_1b);
	TEST_SAFE_CALL(test_2a);
	TEST_SAFE_CALL(test_2b);
	TEST_SAFE_CALL(test_3a);
	TEST_SAFE_CALL(test_3b);
	TEST_SAFE_CALL(test_4a);
	TEST_SAFE_CALL(test_4b);
	TEST_SAFE_CALL(test_5a);
	TEST_SAFE_CALL(test_5b);
}