branch: elpa/parseclj
commit b377e12d7e15d3297a3aad7b763ccc88e6a619fa
Author: Daniel Barreto <[email protected]>
Commit: Daniel Barreto <[email protected]>
Add test case for invalid input error token
---
test/parseclj-lex-test.el | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/test/parseclj-lex-test.el b/test/parseclj-lex-test.el
index 34813e3ac7..1918863abb 100644
--- a/test/parseclj-lex-test.el
+++ b/test/parseclj-lex-test.el
@@ -203,7 +203,12 @@
(should (equal (parseclj-lex-next) (parseclj-lex-token :number "13" 18)))
(should (equal (parseclj-lex-next) (parseclj-lex-token :whitespace " "
20)))
(should (equal (parseclj-lex-next) (parseclj-lex-token :number "14" 21)))
- (should (equal (parseclj-lex-next) (parseclj-lex-token :rparen ")" 23)))))
+ (should (equal (parseclj-lex-next) (parseclj-lex-token :rparen ")" 23))))
+
+ (with-temp-buffer
+ (insert "~")
+ (goto-char 1)
+ (should (equal (parseclj-lex-next) (parseclj-lex-token :lex-error "~"
1)))))
(ert-deftest parseclj-lex-test-at-number-p ()
(dolist (str '("123" ".9" "+1" "0" "-456"))
