/*
 * test-jsapi-directory.c -- test Irccd.Directory API
 *
 * Copyright (c) 2013-2021 David Demelier <markand@malikania.fr>
 *
 * Permission to use, copy, modify, and/or distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

#include <sys/stat.h>

#define GREATEST_USE_ABBREVS 0
#include <greatest.h>

#include <irccd/js-plugin.h>
#include <irccd/plugin.h>

static struct irc_plugin *plugin;
static duk_context *ctx;

static void
setup(void *udata)
{
	(void)udata;

	plugin = js_plugin_open("example", TOP "/tests/data/example-plugin.js");
	ctx = js_plugin_get_context(plugin);

	duk_push_string(ctx, TOP);
	duk_put_global_string(ctx, "TOP");
}

static void
teardown(void *udata)
{
	(void)udata;

	remove(TOP "/tests/1/2");
	remove(TOP "/tests/1");

	irc_plugin_finish(plugin);

	plugin = NULL;
	ctx = NULL;
}

GREATEST_TEST
object_constructor(void)
{
	const char *script =
		"d = new Irccd.Directory(TOP + '/tests/data/root');"
		"p = d.path;"
		"l = d.entries.length;";

	if (duk_peval_string(ctx, script) != 0)
		GREATEST_FAIL();

	duk_get_global_string(ctx, "l");
	GREATEST_ASSERT_EQ(3U, duk_get_uint(ctx, -1));
	duk_get_global_string(ctx, "p");
	GREATEST_ASSERT(duk_is_string(ctx, -1));

	GREATEST_PASS();
}

GREATEST_TEST
object_find(void)
{
	const char *script = "d = new Irccd.Directory(TOP + '/tests/data/root');";

	if (duk_peval_string(ctx, script) != 0)
		GREATEST_FAIL();

	/* Find "lines.txt" not recursively. */
	if (duk_peval_string(ctx, "p = d.find('lines.txt');") != 0)
		GREATEST_FAIL();

	duk_get_global_string(ctx, "p");
	GREATEST_ASSERT_STR_EQ(TOP "/tests/data/root/lines.txt", duk_get_string(ctx, -1));

	/* Find "unknown.txt" not recursively (not found). */
	if (duk_peval_string(ctx, "p = d.find('unknown.txt');") != 0)
		GREATEST_FAIL();

	duk_get_global_string(ctx, "p");
	GREATEST_ASSERT(duk_is_null(ctx, -1));

	/* Find "file-2.txt" not recursively (exists but in sub directory). */
	if (duk_peval_string(ctx, "p = d.find('file-2.txt');") != 0)
		GREATEST_FAIL();

	duk_get_global_string(ctx, "p");
	GREATEST_ASSERT(duk_is_null(ctx, -1));

	/* Find "file-2.txt" recursively. */
	if (duk_peval_string(ctx, "p = d.find('file-2.txt', true);") != 0)
		GREATEST_FAIL();

	duk_get_global_string(ctx, "p");
	GREATEST_ASSERT_STR_EQ(TOP "/tests/data/root/level-1/level-2/file-2.txt", duk_get_string(ctx, -1));

	GREATEST_PASS();
}

GREATEST_TEST
object_remove(void)
{
	struct stat st;

	/* First create an empty directory. */
	mkdir(TOP "/tests/empty", 0700);

	if (duk_peval_string(ctx, "d = new Irccd.Directory(TOP + '/tests/empty')") != 0)
		GREATEST_FAIL();

	/* Not recursive. */
	if (duk_peval_string(ctx, "d.remove()") != 0)
		GREATEST_FAIL();

	GREATEST_ASSERT_EQ(-1, stat(TOP "/tests/empty", &st));

	mkdir(TOP "/tests/notempty", 0700);
	mkdir(TOP "/tests/notempty/empty", 0700);

	if (duk_peval_string(ctx, "d = new Irccd.Directory(TOP + '/tests/notempty')") != 0)
		GREATEST_FAIL();

	/* Not recursive. */
	if (duk_peval_string(ctx, "d.remove(true)") != 0)
		GREATEST_FAIL();

	GREATEST_ASSERT_EQ(-1, stat(TOP "/tests/notempty", &st));

	GREATEST_PASS();
}

GREATEST_SUITE(suite_object)
{
	GREATEST_SET_SETUP_CB(setup, NULL);
	GREATEST_SET_TEARDOWN_CB(teardown, NULL);
	GREATEST_RUN_TEST(object_constructor);
	GREATEST_RUN_TEST(object_find);
	GREATEST_RUN_TEST(object_remove);
}

GREATEST_TEST
free_find(void)
{
	/* Find "lines.txt" not recursively. */
	if (duk_peval_string(ctx, "p = Irccd.Directory.find(TOP + '/tests/data/root', 'lines.txt');") != 0) {
		puts(duk_to_string(ctx, -1));
		GREATEST_FAIL();
	}

	duk_get_global_string(ctx, "p");
	GREATEST_ASSERT_STR_EQ(TOP "/tests/data/root/lines.txt", duk_get_string(ctx, -1));

	/* Find "unknown.txt" not recursively (not found). */
	if (duk_peval_string(ctx, "p = Irccd.Directory.find(TOP + '/tests/data/root', 'unknown.txt');") != 0)
		GREATEST_FAIL();

	duk_get_global_string(ctx, "p");
	GREATEST_ASSERT(duk_is_null(ctx, -1));

	/* Find "file-2.txt" not recursively (exists but in sub directory). */
	if (duk_peval_string(ctx, "p = Irccd.Directory.find(TOP + '/tests/data/root', 'file-2.txt');") != 0)
		GREATEST_FAIL();

	duk_get_global_string(ctx, "p");
	GREATEST_ASSERT(duk_is_null(ctx, -1));

	/* Find "file-2.txt" recursively. */
	if (duk_peval_string(ctx, "p = Irccd.Directory.find(TOP + '/tests/data/root', 'file-2.txt', true);") != 0)
		GREATEST_FAIL();

	duk_get_global_string(ctx, "p");
	GREATEST_ASSERT_STR_EQ(TOP "/tests/data/root/level-1/level-2/file-2.txt", duk_get_string(ctx, -1));

	GREATEST_PASS();
}

GREATEST_TEST
free_remove(void)
{
	struct stat st;

	/* First create an empty directory. */
	mkdir(TOP "/tests/empty", 0700);

	/* Not recursive. */
	if (duk_peval_string(ctx, "Irccd.Directory.remove(TOP + '/tests/empty')") != 0) {
		puts(duk_to_string(ctx, -1));
		GREATEST_FAIL();
	}

	GREATEST_ASSERT_EQ(-1, stat(TOP "/tests/empty", &st));

	mkdir(TOP "/tests/notempty", 0700);
	mkdir(TOP "/tests/notempty/empty", 0700);

	/* Not recursive. */
	if (duk_peval_string(ctx, "Irccd.Directory.remove(TOP + '/tests/notempty', true)") != 0)
		GREATEST_FAIL();

	GREATEST_ASSERT_EQ(-1, stat(TOP "/tests/notempty", &st));

	GREATEST_PASS();
}

GREATEST_TEST
free_mkdir(void)
{
	struct stat st;

	remove(TOP "/tests/1/2");
	remove(TOP "/tests/1");

	if (duk_peval_string(ctx, "Irccd.Directory.mkdir(TOP + '/tests/1/2')") != 0) {
		puts(duk_to_string(ctx, -1));
		GREATEST_FAIL();
	}

	GREATEST_ASSERT_EQ(0, stat(TOP "/tests/1/2", &st));

	GREATEST_PASS();
}

GREATEST_SUITE(suite_free)
{
	GREATEST_SET_SETUP_CB(setup, NULL);
	GREATEST_SET_TEARDOWN_CB(teardown, NULL);
	GREATEST_RUN_TEST(free_find);
	GREATEST_RUN_TEST(free_remove);
	GREATEST_RUN_TEST(free_mkdir);
}

GREATEST_MAIN_DEFS();

int
main(int argc, char **argv)
{
	GREATEST_MAIN_BEGIN();
	GREATEST_RUN_SUITE(suite_object);
	GREATEST_RUN_SUITE(suite_free);
	GREATEST_MAIN_END();

	return 0;
}