/* libobj/tests/test_nest.c - Tests for <libobj/obj.h>
 *
 * Copyright (C) 2025  Luke T. Shumaker <lukeshu@lukeshu.com>
 * SPDX-License-Identifier: AGPL-3.0-or-later
 */

#include <string.h> /* for memcpy() */

#include <libobj/obj.h>

#include "test.h"

/* interfaces *****************************************************************/

#define reader_LO_IFACE \
	LO_FUNC(ssize_t, read, void *, size_t)
LO_INTERFACE(reader)

#define writer_LO_IFACE \
	LO_FUNC(ssize_t, write, void *, size_t)
LO_INTERFACE(writer)

#define read_writer_LO_IFACE \
	LO_NEST(reader) \
	LO_NEST(writer)
LO_INTERFACE(read_writer)

/* implementation header ******************************************************/

struct myclass {
	size_t len;
	char   buf[512];
};
LO_IMPLEMENTATION_H(reader, struct myclass, myclass)
LO_IMPLEMENTATION_H(writer, struct myclass, myclass)
LO_IMPLEMENTATION_H(read_writer, struct myclass, myclass)

/* implementation main ********************************************************/

LO_IMPLEMENTATION_C(reader, struct myclass, myclass, static)
LO_IMPLEMENTATION_C(writer, struct myclass, myclass, static)
LO_IMPLEMENTATION_C(read_writer, struct myclass, myclass, static)

static ssize_t myclass_read(struct myclass *self, void *buf, size_t count) {
	test_assert(self);
	if (count > self->len)
		count = self->len;
	memcpy(buf, self->buf, count);
	return count;
}

static ssize_t myclass_write(struct myclass *self, void *buf, size_t count) {
	test_assert(self);
	if (self->len)
		return -1;
	if (count > sizeof(self->buf))
		count = sizeof(self->buf);
	memcpy(self->buf, buf, count);
	self->len = count;
	return count;
}

/* main test body *************************************************************/

int main() {
	struct myclass _obj = {0};
	lo_interface read_writer obj = lo_box_myclass_as_read_writer(&_obj);
	test_assert(LO_CALL(obj, write, "Hello", 6) == 6);
	char buf[6] = {0};
	test_assert(LO_CALL(obj, read, buf, 3) == 3);
	test_assert(memcmp(buf, "Hel\0\0\0", 6) == 0);
	return 0;
}