testsuite.lua

local log = io.open("testsuite.log", "w")
local print = function(...)
    if log then
        for _, v in ipairs({...}) do
            local value = tostring(v)
            local shift = 8 - (#value % 8)
            log:write(value..(" "):rep(shift))
        end
        log:write("\n")
    end
    print(...)
end

local import_time = os.clock()
local int = require("int") -- import module

os.execute("cls")
print(("\nOpen TestSuite.\nUsing module version: %s (%s)"):format(int._VERSION or "UNKNOW", _VERSION))
print(("Import time: %ss"):format(tostring(os.clock() - import_time)))
local INT_LEN = arg[2] and tonumber(arg[2]:match("(%d+)$")) or 10
local DEC_LEN = arg[3] and tonumber(arg[3]:match("(%d+)$")) or 10
local SIMPLE_PERSUITE = arg[1] and tonumber(arg[1]:match("(%d+)$")) or 10

print(([[SETTING INFOMATION:
    << |INT_LEN| . |DEC_LEN| >>
    INT_LEN = %d,
    DEC_LEN = %d,

    SIMPLE_PERSUITE = %d]]):format(INT_LEN, DEC_LEN, SIMPLE_PERSUITE))

local function create_simple(override_int, override_dec)
    local simple = {}
    for _ = 1, override_int or INT_LEN do
        local ran_num = math.random(0, 9)
        if #simple ~= 0 or ran_num ~= 0 then
            simple[#simple+1] = ran_num
        end
    end
    if DEC_LEN > 0 then
        simple[#simple+1] = "."
        for _ = 1, override_dec or DEC_LEN do
            local ran_num = math.random(0, 9)
            if #simple ~= 0 or ran_num ~= 0 then
                simple[#simple+1] = ran_num
            end
        end
    end
    return table.concat(simple)
end

local function benchmark(head, function_call, function_arg, override_int, override_dec)
    print("SELECT FUNCTION: "..string.upper(head))
    if override_int then
        print("INT_LEN OVERRIDE! SET TO: "..tostring(override_int))
    end
    if override_dec then
        print("INT_DEC OVERRIDE! SET TO: "..tostring(override_dec))
    end
    local avg = {i = 0, avg = 0}
    local operation_start = os.clock()
    local result_table = function_arg and {}
    for i = 1, SIMPLE_PERSUITE do
        local x, y = create_simple(override_int, override_dec), create_simple(override_int, override_dec)
        local start = os.clock()
        if result_table then
            result_table[(#result_table % 20) + 1] = {x, y, int.tonumber(function_call(x, y))}
        else
            function_call(x, y)
        end
        -- loading bar --
        local bar, res = ("|"):rep(math.floor((i / (SIMPLE_PERSUITE)) * 50)), os.clock() - start
        if avg.i >= 10 then
            avg.i = 0
        end
        avg[avg.i + 1], avg.i = res, avg.i + 1
        if not arg[4] then
            io.write("\r"..bar..(" "):rep(((5 - bar:len()) % 5) + 3), ("[%s] %.2f %% (%d ms) | using: %s"):format(i == SIMPLE_PERSUITE and "/" or ("/-\\|"):sub((((math.floor((i / SIMPLE_PERSUITE) * 500))) % 4) + 1, ((math.floor((i / SIMPLE_PERSUITE) * 500)) % 4) + 1), (i / SIMPLE_PERSUITE) * 100, math.floor(res * 1000), math.floor(collectgarbage("count") * 1024).." Byte"))
        end
    end
    local operation_time = os.clock() - operation_start
    for _, v in ipairs(avg) do
        avg.avg = avg.avg + v
    end
    local per = math.floor((avg.avg / #avg) * 1000)
    print(((arg[4] and "" or "\n").."Operation time: %.3fs (%s per time)"):format(operation_time, (tostring(per) == "inf" and "> 1ms") or (tostring(per) == "0" and "< 1ms") or per.."ms"))
    if result_table then
        print(("Loss Average: %s\n"):format(function_arg(result_table)))
    end
end

local function format_result(value)
    local i, d = value:match("(%d+).?(%d*)")
    local result = ("0"):rep(INT_LEN - #i)..i..(d ~= "" and "."..d..("0"):rep(DEC_LEN - #d) or "")
    if #result > 40 then
        result = result:sub(1, 40).."..."
    end
    return result
end

local function farg(t)
    local result_raw = 0
    print("index", "x", "y", "loss")
    for i, v in ipairs(t) do
        result_raw = result_raw + math.abs(v[3])
        print(i, format_result(v[1]), format_result(v[2]), math.abs(v[3]))
    end
    local result = result_raw / #t
    if tonumber(arg[6]) and result > tonumber(arg[6]) then
        error(("failed: too much loss! (%s > %s)"):format(result, arg[6]))
    end
    return result
end

local suite_select = tonumber(arg[5])
if not suite_select or suite_select == 0 then
    print("\nUsing Calculate-Suite")
    benchmark("add", function(x, y)
        local x, y = int.new(x, y)
        return x + y
    end)
    benchmark("sub", function(x, y)
        local x, y = int.new(x, y)
        return x - y
    end)
    benchmark("mul", function(x, y)
        local x, y = int.new(x, y)
        return x * y
    end)
    benchmark("div", function(x, y)
        local x, y = int.new(x, y)
        return x / y
    end)
    benchmark("mod", function(x, y)
        local x, y = int.new(x, y)
        return int.fmod(x, y)
    end)
    print("[NOTE] int.pow() function has been override because it take too much time and can be overflow!")
    benchmark("pow", function(x, y)
        local x, y = int.new(x, y)
        return x:pow(x.sign == "+" and y or y:floor())
    end, nil, 4, 2)
    benchmark("sqrt", function(x, _)
        local x = int.new(x)
        return x:sqrt()
    end)
    benchmark("ln", function(x, _)
        local x = int.new(x)
        return x:ln()
    end)
    print("[NOTE] int.exp() function has been override because it take too much time and can be overflow!")
    benchmark("exp", function(x, _)
        local x = int.new(x)
        return x:exp()
    end, nil, 5, 3)

    print("\nUsing Equation-Suite")
    benchmark("equal", function(x, y)
        local x, y = int.new(x, y)
        return x == y
    end)
    benchmark("less", function(x, y)
        local x, y = int.new(x, y)
        return x < y
    end)
    benchmark("more", function(x, y)
        local x, y = int.new(x, y)
        return x > y
    end)
end

if not suite_select or suite_select == 1 then
    print("\nUsing CheckAccuracy-Suite")
    benchmark("tostring", function(x, y)
        local x, y = x:match("^0*(%d-%.?%d-)0*$"), y:match("^0*(%d-%.?%d-)0*$")
        local ix, iy = int.new(x, y)
        local result = ix:tostring() == x and iy:tostring() == y
        if not result then
            error("\nfailed: deconvert result is incorrect!\n\n"..("\t%s =? %s\n\t%s =? %s\n"):format(ix:tostring(), x, iy:tostring(), y))
        end
        return result
    end)

    benchmark("add, sub", function(x, y)
        local x, y = int.new(x, y)
        -- print(1,(x + y))
        -- print(2,(x + y) - x)
        -- print(3,((x + y) - x) - y)
        return ((x + y) - x) - y
    end, farg)

    benchmark("sub, mul, div", function(x, y)
        local x, y = int.new(x, y)
        -- print(1,x / y)
        -- print(2,(x / y) * y)
        -- print(3,x - ((x / y) * y))
        return x - ((x / y) * y)
    end, farg)
end