config_spec.lua

Branches > main > d3c0a10 > files / nvim / pack / plugins / opt / conjure / lua / conjure-spec / config_spec.lua

-- [nfnl] fnl/conjure-spec/config_spec.fnl
local _local_1_ = require("plenary.busted")
local describe = _local_1_.describe
local it = _local_1_.it
local assert = require("luassert.assert")
local config = require("conjure.config")
local core = require("conjure.nfnl.core")
local function _2_()
  local function _3_()
    assert.is_true(config["get-in"]({"client_on_load"}))
    return assert.same("conjure.client.clojure.nrepl", config["get-in"]({"filetype", "clojure"}))
  end
  return it("takes a table of keys and fetches the config value from vim.b or vim.g variables.", _3_)
end
describe("get-in", _2_)
local function _4_()
  local function _5_()
    assert.same(config["get-in"]({"filetypes"}), config.filetypes())
    return assert.same("clojure", core.first(config.filetypes()))
  end
  return it("returns the filetypes list", _5_)
end
describe("filetypes", _4_)
local function _6_()
  local function _7_()
    return assert.same("conjure.client.sql.stdio", config["get-in-fn"]({"filetype"})({"sql"}))
  end
  return it("returns a function that works like get-in but with a path prefix", _7_)
end
describe("get-in-fn", _6_)
local function _8_()
  local function _9_()
    config["assoc-in"]({"foo", "bar"}, "baz")
    return assert.same("baz", config["get-in"]({"foo", "bar"}))
  end
  return it("sets some new config", _9_)
end
describe("assoc-in", _8_)
local function _10_()
  local function _11_()
    config.merge({foo = {bar = "de_dust2"}})
    assert.same("baz", config["get-in"]({"foo", "bar"}))
    config.merge({foo = {bar = "de_dust2"}}, {["overwrite?"] = true})
    return assert.same("de_dust2", config["get-in"]({"foo", "bar"}))
  end
  return it("merges more config into the tree, requires overwrite? if it already exists", _11_)
end
describe("merge", _10_)
local function _12_()
  local function _13_()
    local warnings = {}
    local orig = vim.notify_once
    core.assoc(vim.g, "conjure#migration#old-key", "legacy")
    local function _14_(msg, _)
      return table.insert(warnings, msg)
    end
    vim.notify_once = _14_
    local result = config["get-in"]({"migration", "old_key"})
    vim.notify_once = orig
    core.assoc(vim.g, "conjure#migration#old-key", nil)
    assert.same("legacy", result)
    assert.same(1, #warnings)
    return assert.truthy(string.find(warnings[1], "deprecated", 1, true))
  end
  it("get-in falls back to a hyphenated key and emits a deprecation warning", _13_)
  local function _15_()
    local warnings = {}
    local orig = vim.notify_once
    core.assoc(vim.g, "conjure#migration#new_key", "modern")
    local function _16_(msg, _)
      return table.insert(warnings, msg)
    end
    vim.notify_once = _16_
    local result = config["get-in"]({"migration", "new_key"})
    vim.notify_once = orig
    core.assoc(vim.g, "conjure#migration#new_key", nil)
    assert.same("modern", result)
    return assert.same(0, #warnings)
  end
  it("get-in reads an underscore key normally without any warning", _15_)
  local function _17_()
    local warnings = {}
    local orig = vim.notify
    local function _18_(msg, _)
      return table.insert(warnings, msg)
    end
    vim.notify = _18_
    config["assoc-in"]({"migration", "bad-key"}, "val")
    vim.notify = orig
    core.assoc(vim.g, "conjure#migration#bad-key", nil)
    assert.same(1, #warnings)
    return assert.truthy(string.find(warnings[1], "hyphen", 1, true))
  end
  it("assoc-in warns when a key segment contains a hyphen", _17_)
  local function _19_()
    local warnings = {}
    local orig = vim.notify
    local function _20_(msg, _)
      return table.insert(warnings, msg)
    end
    vim.notify = _20_
    config["assoc-in"]({"migration", "good_key"}, "val")
    vim.notify = orig
    core.assoc(vim.g, "conjure#migration#good_key", nil)
    return assert.same(0, #warnings)
  end
  it("assoc-in does not warn for underscore keys", _19_)
  local function _21_()
    local orig = vim.notify_once
    core.assoc(vim.g, "conjure#migration#old-key", "legacy")
    local function _22_(_, _0)
      return nil
    end
    vim.notify_once = _22_
    config.merge({migration = {old_key = "default"}})
    local result = config["get-in"]({"migration", "old_key"})
    vim.notify_once = orig
    core.assoc(vim.g, "conjure#migration#old-key", nil)
    return assert.same("legacy", result)
  end
  it("merge does not overwrite a value already set via the legacy hyphen key", _21_)
  local function _23_()
    local warnings = {}
    local orig = vim.notify_once
    core.assoc(vim.b, "conjure#migration#buf-key", "buffer-legacy")
    local function _24_(msg, _)
      return table.insert(warnings, msg)
    end
    vim.notify_once = _24_
    local result = config["get-in"]({"migration", "buf_key"})
    vim.notify_once = orig
    core.assoc(vim.b, "conjure#migration#buf-key", nil)
    assert.same("buffer-legacy", result)
    assert.same(1, #warnings)
    return assert.truthy(string.find(warnings[1], "deprecated", 1, true))
  end
  return it("get-in falls back to a hyphenated key in vim.b and emits a deprecation warning", _23_)
end
return describe("hyphen migration", _12_)