/*
 * main.cpp -- test Irccd.Util API
 *
 * Copyright (c) 2013-2017 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.
 */

#define BOOST_TEST_MODULE "Unicode Javascript API"
#include <boost/test/unit_test.hpp>

#include <irccd/js/util_jsapi.hpp>

#include <js_test.hpp>

namespace irccd {

BOOST_FIXTURE_TEST_SUITE(util_jsapi_suite, js_test<util_jsapi>)

/*
 * Irccd.Util misc.
 * ------------------------------------------------------------------
 */

BOOST_AUTO_TEST_CASE(format_simple)
{
    auto ret = duk_peval_string(plugin_->context(),
        "result = Irccd.Util.format(\"#{target}\", { target: \"markand\" })"
    );

    if (ret != 0)
        throw dukx_stack(plugin_->context(), -1);

    BOOST_TEST(duk_get_global_string(plugin_->context(), "result"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "markand");
}

BOOST_AUTO_TEST_CASE(splituser)
{
    if (duk_peval_string(plugin_->context(), "result = Irccd.Util.splituser(\"user!~user@hyper/super/host\");") != 0)
        throw dukx_stack(plugin_->context(), -1);

    BOOST_TEST(duk_get_global_string(plugin_->context(), "result"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "user");
}

BOOST_AUTO_TEST_CASE(splithost)
{
    if (duk_peval_string(plugin_->context(), "result = Irccd.Util.splithost(\"user!~user@hyper/super/host\");") != 0)
        throw dukx_stack(plugin_->context(), -1);

    BOOST_TEST(duk_get_global_string(plugin_->context(), "result"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "~user@hyper/super/host");
}

/*
 * Irccd.Util.cut.
 * ------------------------------------------------------------------
 */

BOOST_AUTO_TEST_CASE(cut_string_simple)
{
    auto ret = duk_peval_string(plugin_->context(),
        "lines = Irccd.Util.cut('hello world');\n"
        "line0 = lines[0];\n"
    );

    if (ret != 0)
        throw dukx_stack(plugin_->context(), -1);

    BOOST_TEST(duk_get_global_string(plugin_->context(), "line0"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "hello world");
}

BOOST_AUTO_TEST_CASE(cut_string_double)
{
    auto ret = duk_peval_string(plugin_->context(),
        "lines = Irccd.Util.cut('hello world', 5);\n"
        "line0 = lines[0];\n"
        "line1 = lines[1];\n"
    );

    if (ret != 0)
        throw dukx_stack(plugin_->context(), -1);

    BOOST_TEST(duk_get_global_string(plugin_->context(), "line0"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "hello");
    BOOST_TEST(duk_get_global_string(plugin_->context(), "line1"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "world");
}

BOOST_AUTO_TEST_CASE(cut_string_dirty)
{
    auto ret = duk_peval_string(plugin_->context(),
        "lines = Irccd.Util.cut('     hello    world     ', 5);\n"
        "line0 = lines[0];\n"
        "line1 = lines[1];\n"
    );

    if (ret != 0)
        throw dukx_stack(plugin_->context(), -1);

    BOOST_TEST(duk_get_global_string(plugin_->context(), "line0"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "hello");
    BOOST_TEST(duk_get_global_string(plugin_->context(), "line1"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "world");
}

BOOST_AUTO_TEST_CASE(cut_string_too_much_lines)
{
    auto ret = duk_peval_string(plugin_->context(),
        "lines = Irccd.Util.cut('abc def ghi jkl', 3, 3);\n"
    );

    if (ret != 0)
        throw dukx_stack(plugin_->context(), -1);

    BOOST_TEST(duk_get_global_string(plugin_->context(), "lines"));
    BOOST_TEST(duk_is_undefined(plugin_->context(), -1));
}

BOOST_AUTO_TEST_CASE(cut_string_token_too_big)
{
    auto ret = duk_peval_string(plugin_->context(),
        "try {\n"
        "  lines = Irccd.Util.cut('hello world', 3);\n"
        "} catch (e) {\n"
        "  name = e.name;\n"
        "  message = e.message;\n"
        "}\n"
    );

    if (ret != 0)
        throw dukx_stack(plugin_->context(), -1);

    BOOST_TEST(duk_get_global_string(plugin_->context(), "name"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "RangeError");
    BOOST_TEST(duk_get_global_string(plugin_->context(), "message"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "word 'hello' could not fit in maxc limit (3)");
}

BOOST_AUTO_TEST_CASE(cut_string_negative_maxc)
{
    auto ret = duk_peval_string(plugin_->context(),
        "try {\n"
        "  lines = Irccd.Util.cut('hello world', -3);\n"
        "} catch (e) {\n"
        "  name = e.name;\n"
        "  message = e.message;\n"
        "}\n"
    );

    if (ret != 0)
        throw dukx_stack(plugin_->context(), -1);

    BOOST_TEST(duk_get_global_string(plugin_->context(), "name"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "RangeError");
    BOOST_TEST(duk_get_global_string(plugin_->context(), "message"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "argument 1 (maxc) must be positive");
}

BOOST_AUTO_TEST_CASE(cut_string_negative_maxl)
{
    auto ret = duk_peval_string(plugin_->context(),
        "try {\n"
        "  lines = Irccd.Util.cut('hello world', undefined, -1);\n"
        "} catch (e) {\n"
        "  name = e.name;\n"
        "  message = e.message;\n"
        "}\n"
    );

    if (ret != 0)
        throw dukx_stack(plugin_->context(), -1);

    BOOST_TEST(duk_get_global_string(plugin_->context(), "name"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "RangeError");
    BOOST_TEST(duk_get_global_string(plugin_->context(), "message"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "argument 2 (maxl) must be positive");
}

BOOST_AUTO_TEST_CASE(cut_array_simple)
{
    auto ret = duk_peval_string(plugin_->context(),
        "lines = Irccd.Util.cut([ 'hello', 'world' ]);\n"
        "line0 = lines[0];\n"
    );

    if (ret != 0)
        throw dukx_stack(plugin_->context(), -1);

    BOOST_TEST(duk_get_global_string(plugin_->context(), "line0"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "hello world");
}

BOOST_AUTO_TEST_CASE(cut_array_double)
{
    auto ret = duk_peval_string(plugin_->context(),
        "lines = Irccd.Util.cut([ 'hello', 'world' ], 5);\n"
        "line0 = lines[0];\n"
        "line1 = lines[1];\n"
    );

    if (ret != 0)
        throw dukx_stack(plugin_->context(), -1);

    BOOST_TEST(duk_get_global_string(plugin_->context(), "line0"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "hello");
    BOOST_TEST(duk_get_global_string(plugin_->context(), "line1"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "world");
}

BOOST_AUTO_TEST_CASE(cut_array_dirty)
{
    auto ret = duk_peval_string(plugin_->context(),
        "lines = Irccd.Util.cut([ '   ', ' hello  ', '  world ', '    '], 5);\n"
        "line0 = lines[0];\n"
        "line1 = lines[1];\n"
    );

    if (ret != 0)
        throw dukx_stack(plugin_->context(), -1);

    BOOST_TEST(duk_get_global_string(plugin_->context(), "line0"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "hello");
    BOOST_TEST(duk_get_global_string(plugin_->context(), "line1"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "world");
}

BOOST_AUTO_TEST_CASE(cut_invalid_data)
{
    auto ret = duk_peval_string(plugin_->context(),
        "try {\n"
        "  lines = Irccd.Util.cut(123);\n"
        "} catch (e) {\n"
        "  name = e.name;\n"
        "  message = e.message;\n"
        "}\n"
    );

    if (ret != 0)
        throw dukx_stack(plugin_->context(), -1);

    BOOST_TEST(duk_get_global_string(plugin_->context(), "name"));
    BOOST_TEST(duk_get_string(plugin_->context(), -1) == "TypeError");
}

BOOST_AUTO_TEST_SUITE_END()

} // !irccd