test.lua

--[[--
LuaKit测试用例
@module test
@author iwiniwin

Date   2019-11-15 19:20:39
Last Modified by   iwiniwin
Last Modified time 2020-04-01 16:59:33
]]

-- 测试面向对象
local function test_oop( ... )
    local Class1 = class()
    function Class1:ctor( ... )
        dump("Class1:ctor")
    end
    function Class1:dtor( ... )
        dump("Class1:dtor")
    end

    -- Class2集成于Class1
    local Class2 = class(Class1)
    function Class2:ctor( ... )
        dump("Class2:ctor")
    end
    function Class2:dtor( ... )
        dump("Class2:dtor")
    end
    -- 实例化对象
    local c1 = new(Class1)
    local c2 = new (Class2)
    -- 销毁对象
    delete(c1)
    delete(c2)

end

-- 测试dump
local function test_dump()
    local data = {
        key1 = 34,
        key2 = "str",
        key3 = {
            key4 = {
                key5 = 56
            },
            key6 = 78
        }
    }
    dump(data, "this is a dump test")
end

-- 测试分模块加载
local function test_load_module( ... )
    local moduleList = import("mvc.loader")

    -- 卸载模块
    for k,v in pairs(moduleList) do
        delete(v)
    end
end

-- 测试性能分析
local function test_profile( ... )
    local new_profiler = import("utils.profiler")
    local profiler = new_profiler("call")
    profiler:start()  -- 开启性能分析

    local function aaa(  )
        for i = 1, 10000000 do

        end
    end
    local function ttt(  )
        aaa()
    end
    ttt()

    -- 同时支持分析协程内的函数调用情况
    local co = coroutine.create(function ( ... )
        aaa()
    end)
    coroutine.resume(co)

    profiler:stop()  -- 停止性能分析
    -- 输出分析结果到文件
    profiler:dump_report_to_file("profile.txt")
end

-- 测试内存泄漏检测工具
local function test_memory_monitor( ... )
    local MemoryMonitor = import("utils.memory_monitor")
    local memoryMonitor = new(MemoryMonitor)

    a = {}
    function test( ... )
        local b = {xxx = "xxx"}
        a.b = b
        memoryMonitor:add_to_leak_monitor(b, "b")  --将b添加到内存检测工具，此时a没有被释放掉 则b也释放不掉
    end
    test()

    -- 由于a在引用b，因此b存在内存泄漏
    memoryMonitor:update()

    -- a不再引用b，b也被释放
    a = nil
    memoryMonitor:update()  -- 没有内存泄漏，这里不会打印日志
end

-- 测试组件系统
local function test_component( ... )
    local ComponentBase = import("core.component.component_base")
    local ComponentExtend = import("core.component.component_extend")

    local A = class()
    ComponentExtend(A)

    -- 组件1
    local Component1 = class(ComponentBase)
    Component1.exportInterface = {
        {"test1"},
    }
    function Component1:test1( ... )
        dump("call test1 ...")
    end

    -- 组件2
    local Component2 = class(ComponentBase)
    Component2.exportInterface = {
        {"test2"},
    }
    function Component2:test2( ... )
        dump("call test2 ...")
    end

    local a = new(A)

    a:bind_component(Component1)  -- 对象a绑定组件1 拥有test1方法
    a:bind_component(Component2)  -- 对象a绑定组件2 拥有test2方法
    a:test1()
    a:test2()
    
    a:unbind_component(Component1)  -- 解绑组件1 丧失test1方法
    -- a:test1()  -- 报错 attempt to call method 'test1' (a nil value)
end

-- 测试事件分发系统
local function test_event_system( ... )
    local EventSystem = new(import("core.event.event_system"))
    local Event = import("core.event.event")

    -- 简单用法
    EventSystem:on("test", function ( ... )
        dump({...})
    end)

    EventSystem:emit("test", "param1", "param2")

    -- 高级用法
    local A = class()
    function A:on_key_down( key )
        dump(key, "key name A")
    end
    EventSystem:on(Event.KeyDown, A.on_key_down, {target = A})

    local B = class()
    function B:on_key_down( key )
        dump(key, "key name B")

        return true  -- 可以中断事件派发
    end

    -- 后注册的事件通过提高优先级可以保证先被调用
    EventSystem:on(Event.KeyDown, B.on_key_down, {target = B, priority = 2})

    EventSystem:emit(Event.KeyDown, "Ctrl")

    EventSystem:off_all(B)  -- 通过target取消注册

    EventSystem:emit(Event.KeyDown, "Ctrl")

end

-- test_oop()
-- test_dump()
-- test_load_module()
-- test_profile()
-- test_memory_monitor()
-- test_component()
test_event_system()

-- 数据观察追踪 回退系统