#include "alloc.h"
#include "assert.h"
#include "klibc.h"
#include "list.h"
#include "mem.h"
#include "paging.h"
#include "serial.h"
#include "stack.h"
#include "vga.h"

void testPhymem(void)
{
	printf("Testing memory PHY\n");
	struct mem_desc *allocated_page_list;
	struct mem_desc
	    *page; // Cast in mem_desc to use it. In fact it's the addr of 4K free memory
	list_init(allocated_page_list);
	int allocCount = 0;
	int freeCount  = 0;

	while ((page = (struct mem_desc *)allocPhyPage()) != NULL) {
		page->phy_addr = allocCount;
		allocCount++;
		list_add_tail(allocated_page_list, page);
	}
	printf("%d pages allocated\n", allocCount);

	while ((page = list_pop_head(allocated_page_list)) != NULL) {
		assertmsg(page->phy_addr == (ulong)freeCount, "page %d modified", page);
		assertmsg(unrefPhyPage((ulong)page) >= 0, "Failed to free page %d\n",
			  (ulong)page);
		freeCount++;
	}
	printf("%d pages freed\n", freeCount);

	assertmsg((page = (struct mem_desc *)allocPhyPage()) != NULL,
		  "Cannot allocate memory\n");
	unrefPhyPage((ulong)page);
}

static void *testAllocNSet(size_t size)
{
	void *allocated = malloc(size);
	assert(allocated);
	memset(allocated, size, size);
	return allocated;
}

static void testAlloc(void)
{
	for (uint i = 0; i < PAGE_SIZE / (sizeof(struct slabEntry)); i++) {
		malloc(sizeof(struct slabEntry));
	}
	for (uint i = 0; i < PAGE_SIZE / (sizeof(struct slabDesc)); i++) {
		malloc(sizeof(struct slabDesc));
	}
	assert(malloc(1));
	assert(malloc(2));
	assert(malloc(3));
	assert(malloc(4));
	void *malloc1 = malloc(sizeof(void *));
	void *malloc2 = malloc(sizeof(void *));
	assert((char *)malloc2 == ((char *)malloc1 + sizeof(void *)));
	free(malloc2);
	void *malloc3 = malloc(sizeof(void *));
	assertmsg((char *)malloc2 == (char *)malloc3, " %d %d\n", malloc2, malloc3);
	void *alloc1 = testAllocNSet(1024);
	void *alloc2 = testAllocNSet(1024);
	void *alloc3 = testAllocNSet(1024);
	void *alloc4 = testAllocNSet(1024);
	void *alloc5 = testAllocNSet(1024);
	void *alloc6 = testAllocNSet(1024);
	void *alloc7 = testAllocNSet(4096);
	free(alloc1);
	free(alloc2);
	free(alloc3);
	free(alloc4);
	free(alloc5);
	free(alloc6);
	free(alloc7);
	void *alloc11 = testAllocNSet(1024);
	void *alloc12 = testAllocNSet(1024);
	void *alloc13 = testAllocNSet(1024);
	void *alloc14 = testAllocNSet(1024);
	void *alloc15 = testAllocNSet(1024);
	void *alloc16 = testAllocNSet(1024);
	free(alloc11);
	free(alloc12);
	free(alloc13);
	free(alloc14);
	free(alloc15);
	free(alloc16);
}

static void testPaging(void)
{
	printf("Testing paging\n");
	struct mem_desc *allocated_page_list;
	struct mem_desc
	    *page; // Cast in mem_desc to use it. In fact it's the addr of 4K free memory
	list_init(allocated_page_list);
	int allocCount = 0;
	int freeCount  = 0;

	while ((page = (struct mem_desc *)allocPhyPage()) != NULL) {
		assertmsg(pageMap((vaddr_t)page, (paddr_t)page, PAGING_MEM_WRITE) == 0,
			  "Fail to map page %d\n", allocCount);
		memset(page, allocCount, PAGE_SIZE);
		allocCount++;
		list_add_tail(allocated_page_list, page);
	}
	printf("%d pages allocated\n", allocCount);

	while ((page = list_pop_head(allocated_page_list)) != NULL) {
		assertmsg((char)page->phy_addr == (char)freeCount,
			  "page modified %d but is %d\n", freeCount, page->phy_addr);
		assertmsg(unrefPhyPage((ulong)page) >= 0, "Failed to free page %d\n",
			  (ulong)page);
		pageUnmap((vaddr_t)page);
		freeCount++;
	}
	printf("%d pages freed\n", freeCount);

	assertmsg((page = (struct mem_desc *)allocPhyPage()) != NULL,
		  "Cannot allocate memory\n");
	unrefPhyPage((ulong)page);
}

static void test_backtrace_2(int a, int b)
{
	printStackTrace(a + b);
}

static void test_backtrace_1(int a)
{
	test_backtrace_2(a, 3);
}

void test_backtrace()
{
	test_backtrace_1(2);
}

void run_test(void)
{
	testPaging();
	printf("Testing Serial\n");
	serialWrite('h');
	serialWrite('e');
	serialWrite('l');
	serialWrite('l');
	serialWrite('o');
	testAlloc();
	printf("Testing backtrace\n");
	test_backtrace();
}