/*
** Copyright (C) 2017-2025 Dirk-Jan C. Binnema <djcb@djcbsoftware.nl>
**
**  This library is free software; you can redistribute it and/or
**  modify it under the terms of the GNU Lesser General Public License
**  as published by the Free Software Foundation; either version 2.1
**  of the License, or (at your option) any later version.
**
**  This library is distributed in the hope that it will be useful,
**  but WITHOUT ANY WARRANTY; without even the implied warranty of
**  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
**  Lesser General Public License for more details.
**
**  You should have received a copy of the GNU Lesser General Public
**  License along with this library; if not, write to the Free
**  Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
**  02110-1301, USA.
*/

#include <vector>
#include <limits>
#include <glib.h>

#include <iostream>
#include <functional>
#include <array>

#include "mu-utils.hh"
#include "mu-utils-file.hh"

#include "mu-test-utils.hh"

using namespace Mu;

struct Case {
	std::string expr;
	bool        is_first{};
	std::string expected;
};
using CaseVec  = std::vector<Case>;
using ProcFunc = std::function<std::string(std::string, bool)>;

static void
test_cases(const CaseVec& cases, ProcFunc proc)
{
	for (const auto& casus : cases) {
		const auto res = proc(casus.expr, casus.is_first);
		//mu_println("'{}'\n'{}'", casus.expected, res);
		assert_equal(casus.expected, res);
	}
}

static void
test_date_basic()
{
	const auto hki = "Europe/Helsinki";

	// ensure we have the needed TZ or skip the test.
	if (!timezone_available(hki)) {
		g_test_skip("timezone Europe/Helsinki not available");
		return;
	}

	g_setenv("TZ", hki, TRUE);
	const std::vector<std::tuple<const char*, bool/*is_first*/, ::time_t>> cases = {{
			{"2015-09-18T09:10:23", true, 1442556623},
			{"1972-12-14T09:10:23", true, 93165023},
			{"1972-12-14T09:10", true,    93165000},
			{"1854-11-18T17:10:23", true, 0},

			{"2000-02-31T09:10:23", true, 951861599},
			{"2000-02-29T23:59:59", true, 951861599},

			{"20220602", true, 1654117200},
			{"20220605", false, 1654462799},

			{"202206", true, 1654030800},
			{"202206", false, 1656622799},

			{"2016", true, 1451599200},
			{"2016", false, 1483221599},

			// {"fnorb", true,  -1},
			// {"fnorb", false, -1},
			{"", false, time_t_max},
			{"", true, time_t_min}
		}};

	for (auto& test: cases) {
		if (g_test_verbose())
			mu_debug("checking {}", std::get<0>(test));
		g_assert_cmpuint(parse_date_time(std::get<0>(test),
						 std::get<1>(test)).value_or(-1),==,
				 std::get<2>(test));
	}
}

static void
test_date_ymwdhMs()
{
	struct testcase {
		std::string	expr;
		int64_t		diff;
		int		tolerance;
	};


	const auto cases = std::to_array<testcase>({
		{"7s", 7, 1},
		{"3M", 3 * 60, 1},
		{"3h", 3 * 60 * 60, 1},
		{"21d", 21 * 24 * 60 * 60, 3600 + 1},
		{"2w", 2 * 7 * 24 * 60 * 60, 3600 + 1},
		{"2y", 2 * 365 * 24 * 60 * 60, 24 * 3600 + 1},
		{"3m", 3 * 30 * 24 * 60 * 60, 3 * 24 * 3600 + 1}
		});

	for (auto&& tcase: cases) {
		const auto date = parse_date_time(tcase.expr, true);
		g_assert_true(date);
		const auto diff = ::time({}) - *date;
		if (g_test_verbose())
			std::cerr << tcase.expr << ' ' << diff << ' ' << tcase.diff << '\n';

		g_assert_true(tcase.diff - diff <= tcase.tolerance);
	}

	// note: perhaps it'd be nice if we'd detect this error;
	// currently we're being rather tolerant
	// g_assert_false(!!parse_date_time("25q", false));
}

static void
test_parse_size()
{
	constexpr auto cases = std::to_array<std::tuple<const char*, bool, int64_t>>({
			{ "456", false, 456 },
			{ "", false, G_MAXINT64 },
			{ "", true, 0 },
			{ "2K", false, 2048 },
			{ "2M", true, 2097152 },
			{ "5G", true, 5368709120 }
		});
	for(auto&& test: cases) {
		g_assert_cmpint(parse_size(std::get<0>(test), std::get<1>(test))
				.value_or(-1), ==, std::get<2>(test));
	}

	g_assert_false(!!parse_size("-1", true));
	g_assert_false(!!parse_size("scoobydoobydoo", false));
}

static void
test_utf8_clean()
{
	assert_equal(utf8_clean("James Holden"), "James Holden");

	const auto invalid_bytes = std::to_array({ 'a' , static_cast<char>(0xff), 'c'});
	std::string invalid{invalid_bytes.data(), invalid_bytes.size()};

	g_assert_false(g_utf8_validate(invalid.c_str(), invalid.length(), nullptr));

	const auto valid = utf8_clean(std::move(invalid));
	g_assert_true(g_utf8_validate(valid.c_str(), valid.length(), {}));
	assert_equal(valid, "a\357\277\275c"); // replacement char
}

static void
test_flatten()
{
	CaseVec cases = {
	    {"Менделе́ев",	true, "менделеев"},
	    {"",		true, ""},
	    {"Ångström",	true, "angstrom"},
	    {"đodø",		true, "dodo"},

	    // don't touch combining characters in CJK etc.
	    {"スポンサーシップ募集", true, "スポンサーシップ募集"}
	};

	test_cases(cases, [](auto s, auto f) { return utf8_flatten(s); });
}

static void
test_remove_ctrl()
{
	CaseVec cases = {
	    {"Foo\n\nbar", true, "Foo bar"},
	    {"", false, ""},
	    {"   ", false, " "},
	    {"Hello   World   ", false, "Hello World "},
	    {"Ångström", false, "Ångström"},
	};

	test_cases(cases, [](auto s, auto f) { return remove_ctrl(s); });
}

static void
test_clean()
{
	CaseVec cases = {
	    {"\t a\t\nb ",	true, "a  b"},
	    {"",		true, ""},
	    {"Ångström",	true, "Ångström"},
	    {"\345\245",	true, ".."},
	};

	test_cases(cases, [](auto s, auto f) { return utf8_clean(s); });
}

static void
test_word_break()
{
	CaseVec cases = {
	    {"aap+noot&mies",            true, "aap noot mies"},
	    {"hallo",                    true, "hallo"},
	    {"  foo-bar###cuux,fnorb  ", true, "foo bar cuux fnorb"},
	    {"eyes\nof\tMedusa",         true, "eyes of Medusa"},
	};

	test_cases(cases, [](auto s, auto f) { return utf8_wordbreak(s); });
}

static void
test_format()
{
	g_assert_true(mu_format("hello {}", "world") == "hello world");
	g_assert_true(mu_format("hello {}, {}", "world", 123) == "hello world, 123");
}

static void
test_split()
{
	using svec = std::vector<std::string>;
	auto assert_equal_svec=[](const svec& sv1, const svec& sv2) {
		g_assert_cmpuint(sv1.size(),==,sv2.size());
		for (auto i = 0U; i != sv1.size(); ++i)
			g_assert_cmpstr(sv1[i].c_str(),==,sv2[i].c_str());
	};

	// string sepa
	assert_equal_svec(split("axbxc", "x"), {"a", "b", "c"});
	assert_equal_svec(split("axbxcx", "x"), {"a", "b", "c", ""});
	assert_equal_svec(split("", "boo"), {});
	assert_equal_svec(split("ayybyyc", "yy"), {"a", "b", "c"});
	assert_equal_svec(split("abc", ""), {"a", "b", "c"});
	assert_equal_svec(split("", "boo"), {});

	// char sepa
	assert_equal_svec(split("axbxc", 'x'), {"a", "b", "c"});
	assert_equal_svec(split("axbxcx", 'x'), {"a", "b", "c", ""});
}

static void
test_join()
{
	assert_equal(join({"a", "b", "c"}, "x"), "axbxc");
	assert_equal(join({"a", "b", "c"}, ""), "abc");
	assert_equal(join({},"foo"), "");
	assert_equal(join({"d", "e", "f"}, "foo"), "dfooefoof");
}


namespace Mu {
enum struct Bits { None = 0, Bit1 = 1 << 0, Bit2 = 1 << 1 };
MU_ENABLE_BITOPS(Bits);
}

static void
test_define_bitmap()
{
	using namespace Mu;

	g_assert_cmpuint((guint)Bits::None, ==, (guint)0);
	g_assert_cmpuint((guint)Bits::Bit1, ==, (guint)1);
	g_assert_cmpuint((guint)Bits::Bit2, ==, (guint)2);

	g_assert_cmpuint((guint)(Bits::Bit1 | Bits::Bit2), ==, (guint)3);
	g_assert_cmpuint((guint)(Bits::Bit1 & Bits::Bit2), ==, (guint)0);

	g_assert_cmpuint((guint)(Bits::Bit1 & (~Bits::Bit2)), ==, (guint)1);

	{
		Bits b{Bits::Bit1};
		b |= Bits::Bit2;
		g_assert_cmpuint((guint)b, ==, (guint)3);
	}

	{
		Bits b{Bits::Bit1};
		b &= Bits::Bit1;
		g_assert_cmpuint((guint)b, ==, (guint)1);
	}
}

static void
test_to_from_lexnum()
{
	assert_equal(to_lexnum(0), "g0");
	assert_equal(to_lexnum(100), "h64");
	assert_equal(to_lexnum(12345), "j3039");

	g_assert_cmpuint(from_lexnum(to_lexnum(0)), ==, 0);
	g_assert_cmpuint(from_lexnum(to_lexnum(7777)), ==, 7777);
	g_assert_cmpuint(from_lexnum(to_lexnum(9876543)), ==, 9876543);

	/* negative values have an uppercase prefix and thus sort before all
	 * positive values, in numerical order */
	assert_equal(to_lexnum(-1), "Vffffffffffffffff");
	g_assert_cmpint(from_lexnum(to_lexnum(-1)), ==, -1);
	g_assert_cmpint(from_lexnum(to_lexnum(-12345)), ==, -12345);
	g_assert_true(to_lexnum(-2) < to_lexnum(-1));
	g_assert_true(to_lexnum(-1) < to_lexnum(0));
	g_assert_true(to_lexnum(-12345) < to_lexnum(12345));

	constexpr auto int64_min = std::numeric_limits<int64_t>::min();
	constexpr auto int64_max = std::numeric_limits<int64_t>::max();
	g_assert_cmpint(from_lexnum(to_lexnum(int64_min)), ==, int64_min);
	g_assert_cmpint(from_lexnum(to_lexnum(int64_max)), ==, int64_max);
	g_assert_true(to_lexnum(int64_min) < to_lexnum(-1));
	g_assert_true(to_lexnum(0) < to_lexnum(int64_max));

	g_assert_cmpint(from_lexnum(""), ==, 0);
}

static void
test_locale_workaround()
{
	g_assert_true(locale_workaround());

	g_setenv("LC_ALL", "BOO", 1);

	g_assert_true(locale_workaround());
}

static void
test_summarize()
{
	const char *txt =
		"Khiron was fortified and made the seat of a pargana during "
		"the reign of Asaf-ud-Daula.\n\the headquarters had previously "
		"been at Satanpur since its foundation and fortification by "
		"the Bais raja Sathna.\n\nKhiron was also historically the seat "
		"of a taluqdari estate belonging to a Janwar dynasty.\n"
		"There were also several Kayasth qanungo families, "
		"including many descended from Rai Sahib Rai, who had been "
		"a chakladar under the Nawabs of Awadh.";

	const auto summ = summarize(txt, 3);
	g_assert_cmpstr(summ.c_str(), ==,
			"Khiron was fortified and made the seat of a pargana "
			"during the reign of Asaf-ud-Daula. he headquarters had "
			"previously been at Satanpur since its foundation and "
			"fortification by the Bais raja Sathna. ");
}

static void
test_ascii_ctype()
{
	/* the ascii ctype functions are constexpr and work for any
	 * integral character type... */
	static_assert(is_ascii('m'));
	static_assert(!is_ascii(static_cast<char>(0x80)));
	static_assert(is_ascii_cntrl('\n'));
	static_assert(!is_ascii_cntrl(' '));
	static_assert(is_ascii_blank('\t'));
	static_assert(!is_ascii_blank('\n'));
	static_assert(to_ascii_lower('Q') == 'q');
	static_assert(to_ascii_lower(U'Q') == U'q');
	static_assert(to_ascii_lower('8') == '8');
	static_assert(to_ascii_lower('\xc4'/* Ä */) == '\xc4');

	/* ... and, unlike their libc cousins, are well-defined for
	 * negative chars; check the full range against glib's
	 * (locale-independent) g_ascii_* versions. */
	for (int i = -128; i != 128; ++i) {
		const auto c{static_cast<char>(i)};
		g_assert_cmpint(is_ascii_cntrl(c), ==, !!g_ascii_iscntrl(c));
		g_assert_cmpint(is_ascii_alpha(c), ==, !!g_ascii_isalpha(c));
		g_assert_cmpint(is_ascii_digit(c), ==, !!g_ascii_isdigit(c));
		g_assert_cmpint(is_ascii_alnum(c), ==, !!g_ascii_isalnum(c));
		/* NB: unlike isspace(3), g_ascii_isspace excludes VT */
		g_assert_cmpint(is_ascii_space(c), ==,
				!!g_ascii_isspace(c) || c == '\v');
		g_assert_cmpint(is_ascii_punct(c), ==, !!g_ascii_ispunct(c));
		g_assert_cmpint(to_ascii_lower(c), ==, g_ascii_tolower(c));
	}

	/* values beyond the char range must not get truncated */
	const gunichar uc{0x2028/* line separator */};
	g_assert_false(is_ascii(uc));
	g_assert_false(is_ascii_cntrl(uc));
	g_assert_false(is_ascii_punct(uc));
	g_assert_true(to_ascii_lower(uc) == uc);
}

int
main(int argc, char* argv[])
{
	mu_test_init(&argc, &argv);

	g_test_add_func("/utils/date-basic", test_date_basic);
	g_test_add_func("/utils/date-ymwdhMs", test_date_ymwdhMs);
	g_test_add_func("/utils/parse-size", test_parse_size);
	g_test_add_func("/utils/utf8-clean", test_utf8_clean);
	g_test_add_func("/utils/flatten", test_flatten);
	g_test_add_func("/utils/remove-ctrl", test_remove_ctrl);
	g_test_add_func("/utils/clean", test_clean);
	g_test_add_func("/utils/word-break", test_word_break);
	g_test_add_func("/utils/format", test_format);
	g_test_add_func("/utils/summarize", test_summarize);
	g_test_add_func("/utils/split", test_split);
	g_test_add_func("/utils/join", test_join);
	g_test_add_func("/utils/define-bitmap", test_define_bitmap);
	g_test_add_func("/utils/to-from-lexnum", test_to_from_lexnum);
	g_test_add_func("/utils/locale-workaround", test_locale_workaround);
	g_test_add_func("/utils/ascii-ctype", test_ascii_ctype);

	return g_test_run();
}
