mirror of
https://github.com/vale981/emacs-ipython-notebook
synced 2025-03-08 18:41:38 -05:00
28 lines
867 B
EmacsLisp
28 lines
867 B
EmacsLisp
|
(require 'ert)
|
||
|
|
|
||
|
|
(when load-file-name
|
||
|
|
(add-to-list 'load-path
|
||
|
|
(concat (file-name-directory load-file-name) "mocker")))
|
||
|
|
(require 'mocker)
|
||
|
|
|
||
|
|
(require 'ein-pytools)
|
||
|
|
(require 'ein-testing-kernel)
|
||
|
|
|
||
|
|
|
||
|
|
(ert-deftest ein:pytools-finish-tooltip ()
|
||
|
|
(ein:testing-kernel-construct-help-string-loop
|
||
|
|
(lambda (content result)
|
||
|
|
(if result
|
||
|
|
(mocker-let
|
||
|
|
((featurep
|
||
|
|
(feature)
|
||
|
|
((:input '(pos-tip) :output t)))
|
||
|
|
(pos-tip-show
|
||
|
|
(string &optional tip-color pos window timeout)
|
||
|
|
((:input (list result 'ein:pos-tip-face nil nil 0)))))
|
||
|
|
(let ((window-system t))
|
||
|
|
(ein:pytools-finish-tooltip '-not-used- content '-not-used-)))
|
||
|
|
(mocker-let
|
||
|
|
((featurep (feature) ()))
|
||
|
|
(ein:pytools-finish-tooltip '-not-used- content '-not-used-))))))
|