contrib-lua-test/test_lua-api_spec.lua at main · neomutt/contrib-lua-test · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
if mutt and mutt.message then
  print = mutt.message
end

found, runner = pcall(require, 'busted.runner')
if not found then
  print("Please install busted, e.g. with luarocks:")
  print(" %% luarocks install busted")
  os.exit(1)
end

runner()

local eq = function(exp, act)
  return assert.are.same(exp, act)
end
local neq = function(exp, act)
  return assert.are_not.same(exp, act)
end
local ok = function(res)
  return assert.is_true(res)
end

local test_config_type = function(setting, a, b)
  eq(a, mutt.get(setting))
  mutt.set(setting, b)
  eq(b, mutt.get(setting))
end


describe('lua API', function()
  describe('test get/set', function()
    it('works with DT_STRING', function()
      test_config_type("hostname", "apple.com", "banana.com")
    end)

    it('works with DT_NUMBER and positive ints', function()
      test_config_type("wrap", 80, 42)
      test_config_type("wrap", 42, 80)
    end)

    it('works with DT_NUMBER and negative ints', function()
      test_config_type("wrap", 80, -42)
      test_config_type("wrap", -42, 80)
    end)

    it('works with DT_NUMBER and does not accept positive int overflow', function()
      assert.has_error(function() test_config_type("timeout", 99, 33000) end)
    end)

    it('works with DT_NUMBER and does not accept negative int overflow', function()
      assert.has_error(function() test_config_type("timeout", 99, -33000) end)
    end)

    it('works with DT_LONG and big ints', function()
      test_config_type("pgp_timeout", 300, 300000)
    end)

    it('works with DT_BOOL', function()
      test_config_type("arrow_cursor", true, false)
    end)

    it('works with DT_QUAD', function()
      test_config_type("abort_noattach", mutt.QUAD_NO, mutt.QUAD_ASKNO)
    end)

    it('works with DT_PATH', function()
      test_config_type("alias_file", "test_lua-api_runner.neomuttrc", "")
    end)

    it('works with DT_SORT', function()
      test_config_type("sort", "from", "date")
    end)

    it('works with DT_REGEX', function()
      test_config_type("mask", "!^\\\\.[^.]", ".*")
    end)

    it('works with DT_MBTABLE', function()
      test_config_type("to_chars", "+TCFL", "+T")
    end)

    it('works with DT_ADDRESS', function()
      test_config_type("from", "[email protected]", "[email protected]")
    end)

    it('works with DT_EXPANDO', function()
      test_config_type("forward_format", "[%a: %s]", "forward %f")
    end)

    it('works with custom my_ variable DT_STRING', function()
      test_config_type("my_fubar", "Ford Prefect", "Zaphod Beeblebrox")
    end)

    it('detects a non-existent my_ variable DT_STRING', function()
      assert.has_error(function() mutt.get("my_doesnotexists") end)
    end)

    it('detects a non-existent other variable', function()
      assert.has_error(function() mutt.get("doesnotexists") end)
    end)
  end)
end)