branch: elpa/swift-mode
commit 3aa3dcd0e4823109068feada1d0dfde1f24a5a25
Author: uk-ar <yuuki....@gmail.com>
Commit: uk-ar <yuuki....@gmail.com>
Add test code for checking tokens
---
swift-mode.el | 16 ++++++++++++++++
test/indentation-tests.el | 2 ++
2 files changed, 18 insertions(+)
diff --git a/swift-mode.el b/swift-mode.el
index 5cb0293..fcf2df3 100644
--- a/swift-mode.el
+++ b/swift-mode.el
@@ -249,6 +249,22 @@
(not (looking-back "[[:upper:]]>" (- (point) 2) t)))
))))
+(defun swift-smie--forward-token-debug ()
+ (let ((token (swift-smie--forward-token)))
+ (unless (equal token "")
+ (assert (equal token
+ (save-excursion (swift-smie--backward-token))) t))
+ token
+ ))
+
+(defun swift-smie--backward-token-debug ()
+ (let ((token (swift-smie--backward-token)))
+ (unless (equal token "")
+ (assert (equal token
+ (save-excursion (swift-smie--forward-token))) t))
+ token
+ ))
+
(defun swift-smie--forward-token ()
(skip-chars-forward " \t")
(cond
diff --git a/test/indentation-tests.el b/test/indentation-tests.el
index 3abd8be..2a1bc3d 100644
--- a/test/indentation-tests.el
+++ b/test/indentation-tests.el
@@ -68,6 +68,8 @@ values of customisable variables."
(search-forward "|")
(delete-char -1)
(swift-mode)
+ (setq smie-forward-token-function 'swift-smie--forward-token-debug)
+ (setq smie-backward-token-function
'swift-smie--backward-token-debug)
(indent-according-to-mode)
(should (equal expected-state (buffer-string)))
