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
|
;; -*- flycheck-disabled-checkers: (emacs-lisp-checkdoc) -*-
(load (concat (file-name-directory (or load-file-name (buffer-file-name)
default-directory))
"utils.el") nil 'nomessage 'nosuffix)
(describe "lua-forward-sexp"
(it "properly scans through curly braces"
(with-lua-buffer
(lua-insert-goto-<>
'("local x = <>function() return {{}} end"
""
"function foobar() end"))
(lua-forward-sexp)
(expect (looking-back (rx "x = function() return {{}} end")
(line-beginning-position)))))
(it "scans through then .. end block"
(with-lua-buffer
(lua-insert-goto-<>
'("if foo <>then"
" return bar"
"--[[end here]] end"))
(lua-forward-sexp)
(expect (looking-back (rx "--[[end here]] end")
(line-beginning-position))))))
(describe "Check that beginning-of-defun works with "
(it "handles differed function headers"
(with-lua-buffer
(lua-insert-goto-<>
'("function foobar()"
"<>"
"end"))
(beginning-of-defun)
(expect (looking-at (rx "function foobar()"))))
(with-lua-buffer
(lua-insert-goto-<>
'("local function foobar()"
"<>"
"end"))
(beginning-of-defun)
(expect (looking-at "local function foobar()")))
(with-lua-buffer
(lua-insert-goto-<>
'("local foobar = function()"
"<>"
"end"))
(beginning-of-defun)
(expect (looking-at (rx "local foobar = function()"))))
(with-lua-buffer
(lua-insert-goto-<>
'("foobar = function()"
"<>"
"end"))
(beginning-of-defun)
(expect (looking-at (rx "foobar = function()")))))
(it "accepts dots and colons"
(with-lua-buffer
(lua-insert-goto-<>
'("foo.bar = function (x,y,z)"
"<>"
"end"))
(beginning-of-defun)
(expect (looking-at (rx "foo.bar = function (x,y,z)"))))
(with-lua-buffer
(lua-insert-goto-<>
'("function foo.bar:baz (x,y,z)"
"<>"
"end"))
(beginning-of-defun)
(expect (looking-at (rx "function foo.bar:baz (x,y,z)"))))))
|
