--- Tests for the role lookup functions of module/control.lua
local Suite = ... --- The suite this file adds its tests to, see test/lua/framework.lua
local test, check, eq = Suite.test, Suite.check, Suite.eq

test("get_role returns the role with the given clusterio id", function(env)
    env.initialise{}
    check(env.Roles.get_role(6).name == "Regular", "the role is found by id")
    check(env.Roles.get_role(env.R("Jail").id) == env.R("Jail"), "lookups return the same object")
    check(env.Roles.get_role(9) == nil, "deleted roles are not known")
end)

test("get_role_by_name searches the roles", function(env)
    env.initialise{}
    check(env.Roles.get_role_by_name("Moderator").id == 5, "the role is found by name")
    check(env.Roles.get_role_by_name("Gone") == nil, "deleted roles are not known")
end)

test("get_roles returns every role", function(env)
    env.initialise{}
    check(#env.Roles.get_roles() == 5, "every role is returned with deleted roles skipped")
end)

test("get_ordered_roles returns the most privileged first", function(env)
    env.initialise{}
    eq(env.names(env.Roles.get_ordered_roles()), { "Cluster Admin", "Moderator", "Regular", "Jail", "Player" },
        "roles follow their order")
end)

test("sort_roles orders most privileged first", function(env)
    env.initialise{}
    local sorted = env.Roles.sort_roles{ env.R("Player"), env.R("Cluster Admin"), env.R("Regular") }
    eq(env.names(sorted), { "Cluster Admin", "Regular", "Player" }, "the list is sorted in place")
end)

test("get_default_role follows is_default", function(env)
    env.initialise{}
    check(env.Roles.get_default_role() == env.R("Player"), "the default role is known")
end)

test("get_higher_roles and get_lower_roles include the role and exclude the default", function(env)
    env.initialise{}
    eq(Suite.sorted(env.names(env.Roles.get_higher_roles(env.R("Regular")))),
        { "Cluster Admin", "Moderator", "Regular" }, "higher roles")
    eq(Suite.sorted(env.names(env.Roles.get_lower_roles(env.R("Regular")))),
        { "Jail", "Regular" }, "lower roles")
end)

test("role:is_higher_than and role:is_lower_than compare on order", function(env)
    env.initialise{}
    check(env.R("Moderator"):is_higher_than(env.R("Player")), "a lower order is more privileged")
    check(env.R("Player"):is_lower_than(env.R("Moderator")), "is_lower_than is the reverse")
    check(not env.R("Moderator"):is_higher_than(env.R("Moderator")), "a role is not higher than itself")
end)

test("initialise decodes the role records", function(env)
    env.initialise{}
    check(env.R("Cluster Admin").short_hand == "SYS", "short hand decoded")
    check(env.R("Moderator").short_hand == "Moderator", "short hand falls back to the name")
    check(env.R("Moderator").color.g == 170, "color decoded")
    check(env.R("Jail").priority == 1 and env.R("Jail").block_auto_assign, "priority and block auto assign decoded")
end)

return Suite.run()