#include "hs_tests.h"

char err_string[32] = "";

int set_err_string(lua_State *L)
{
    if (lua_isstring(L, -1))
	strcpy(err_string, lua_tostring(L, -1));
    return 0;
}


int throw_const_error(lua_State *L)
{
    hs_throw_error(L, "a constant error");
    return 0;
}

TEST(hs_throw_error_constant)
{
    lua_pushcfunction(L, set_err_string);
    int pos = lua_gettop(L);
    lua_pushcfunction(L, throw_const_error);
    int result = lua_pcall(L, 0, 0, pos);
    mu_assert_equal(result, LUA_ERRRUN);
    mu_assert_str_not_equal(err_string, "");
    mu_assert_str_equal(err_string, "a constant error");
    return 0;
}


int throw_number_error(lua_State *L)
{
    hs_throw_error(L, "%s number %d", "error", 10);
    return 0;
}

TEST(hs_throw_error_format)
{
    lua_pushcfunction(L, set_err_string);
    int pos = lua_gettop(L);
    lua_pushcfunction(L, throw_number_error);
    int result = lua_pcall(L, 0, 0, pos);
    mu_assert_equal(result, LUA_ERRRUN);
    mu_assert_str_not_equal(err_string, "");
    mu_assert_str_equal(err_string, "error number 10");
    return 0;
}


// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

void hs_throw_error_tests()
{
    printf("running hs_throw_error() tests...\n");

    mu_run_test("throw constant error string", hs_throw_error_constant);
    mu_run_test("throw error with format string", hs_throw_error_format);
}