[nongnu] elpa/beancount b6e34fcb49 035/103: beancount.el: Add simple completion-at-point test

[ELPA Syncer]

branch: elpa/beancount
commit b6e34fcb49bdff518ed06248b2fbe35119d34f7f
Author: Daniele Nicolodi <daniele@grinta.net>
Commit: Daniele Nicolodi <daniele@grinta.net>

    beancount.el: Add simple completion-at-point test
---
 beancount-tests.el | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/beancount-tests.el b/beancount-tests.el
index 25eed88cab..c586a1fd65 100644
--- a/beancount-tests.el
+++ b/beancount-tests.el
@@ -145,3 +145,28 @@ known option nmaes."
       (while (re-search-forward "^option\\s-+\"\\([a-z_]*\\)\"" nil t)
         (setq options (cons (match-string-no-properties 1) options))))
     (should (equal (sort options #'string<) beancount-option-names))))
+
+(ert-deftest beancount/completion-001 ()
+  :tags '(completion regress)
+  (with-temp-buffer
+    (insert "
+2019-01-01 * \"Example\"
+  Expenses:Test    1.00 USD
+  Assets:Checking
+
+2019-01-01 * \"Example\"
+  Expenses:T
+")
+    (beancount-mode)
+    (previous-line)
+    (move-end-of-line 1)
+    (completion-at-point)
+    (should (equal (buffer-string) "
+2019-01-01 * \"Example\"
+  Expenses:Test    1.00 USD
+  Assets:Checking
+
+2019-01-01 * \"Example\"
+  Expenses:Test
+"))
+    (should (equal beancount-accounts '("Assets:Checking" "Expenses:Test")))))