| 12345678910111213141516171819202122232425262728 |
- (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-))))))
|
