-- Some memory leak checks as integration tests.

local runner = require("_runner")
local awful = require("awful")
local cairo = require("lgi").cairo
local create_wibox = require("_wibox_helper").create_wibox
local wibox = require("wibox")

local prepare_for_collect = nil
local function run_delayed_calls()
    require("gears.timer").run_delayed_calls_now()
end

-- Make the layoutbox in the default config GC'able
for s in screen do
    s.mywibox:set_widget(wibox.widget.textbox())
    s.mywibox.visible = false
    s.mywibox = nil
    s.mylayoutbox = nil
end
run_delayed_calls()

-- Test if some objects can be garbage collected
local function collectable(a, b, c, d, e, f, g, h, last)
    assert(last == nil, "got more arguments than supported")
    local objs = setmetatable({ a, b, c, d, e, f, g, h }, { __mode = "v" })
    a, b, c, d, e, f, g, h = nil, nil, nil, nil, nil, nil, nil, nil -- luacheck: ignore
    if prepare_for_collect then
        prepare_for_collect()
        prepare_for_collect = nil
    end
    collectgarbage("collect")
    collectgarbage("collect")
    collectgarbage("collect")
    -- Check if the table is now empty
    for _, v in pairs(objs) do
        print("Some object was not garbage collected!")
        error(v)
    end
end

-- Use the layoutbox for testing delayed tooltips
local function tooltip_delayed()
    local l = awful.widget.layoutbox{screen = 1}
    local t = l._layoutbox_tooltip
    assert(t)
    return l, t
end

local function tooltip_now()
    local w = wibox.widget.textbox("some textbox")
    local t = awful.tooltip({ objects = {w} })
    return w, t
end

-- First test some basic widgets
collectable(wibox.widget.base.make_widget())
collectable(wibox.widget.textbox("foo"))
collectable(wibox.layout.fixed.horizontal())
collectable(wibox.layout.align.horizontal())

-- Then some random widgets from awful
collectable(awful.widget.launcher({ image = cairo.ImageSurface(cairo.Format.ARGB32, 20, 20), command = "bash" }))
collectable(awful.widget.prompt())
collectable(wibox.widget.textclock())
collectable(awful.widget.layoutbox{screen=1})

-- Some widgets do things via timer.delayed_call
prepare_for_collect = run_delayed_calls
collectable(tooltip_delayed())

prepare_for_collect = run_delayed_calls
collectable(tooltip_now())

prepare_for_collect = run_delayed_calls
collectable(awful.widget.taglist{screen=1, filter=awful.widget.taglist.filter.all})

prepare_for_collect = run_delayed_calls
collectable(awful.widget.tasklist{screen=1, filter=awful.widget.tasklist.filter.currenttags})

prepare_for_collect = run_delayed_calls
collectable(create_wibox())

-- Test that screens can be collected
local function create_and_remove_screen()
    local s = screen.fake_add(-10, -10, 10, 10)
    awful.tag.viewnext(s)
    s:fake_remove()
    return s
end
prepare_for_collect = run_delayed_calls
collectable(create_and_remove_screen())

runner.run_steps({ function() return true end })

-- vim: filetype=lua:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:textwidth=80