emacs-ipython-notebook/tests/legacy/test-ein-completer.el
John Miller fdf626cc98 Creating legacy tests
In theory these tests are for IPython 2.x. Still need to work out how to include all this in travis.
2015-08-26 20:50:28 -05:00

23 lines
763 B
EmacsLisp

(eval-when-compile (require 'cl))
(require 'ert)
(when load-file-name
(add-to-list 'load-path
(concat (file-name-directory load-file-name) "mocker")))
(require 'mocker)
(require 'ein-completer)
(ert-deftest ein:completer-finish-completing ()
(let* ((matched-text 'dummy-matched-text-value) ; value can be anything
(matches 'dummy-matches-value)
(content (list :matched_text matched-text
:matches matches))
(args '(:extend t)))
(mocker-let
((ein:completer-choose () ((:output 'completer)))
(completer
(matched-text matches &rest args)
((:input (list matched-text matches args)))))
(ein:completer-finish-completing args content '-not-used-))))