mirror of
https://github.com/vale981/emacs-ipython-notebook
synced 2025-03-05 09:01:40 -05:00
28 lines
1,005 B
EmacsLisp
28 lines
1,005 B
EmacsLisp
(require 'ein-shared-output)
|
||
|
||
(defmacro eintest:shared-output-with-buffer (&rest body)
|
||
(declare (indent 0))
|
||
`(with-current-buffer (ein:shared-output-create-buffer)
|
||
(ein:shared-output-get-or-create)
|
||
,@body))
|
||
|
||
(defmacro eintest:shared-output-is-empty-context-of (func)
|
||
`(ert-deftest ,(intern (format "%s--shared-output" func)) ()
|
||
(eintest:shared-output-with-buffer
|
||
(should-not (,func)))))
|
||
|
||
|
||
;; Generic getter
|
||
|
||
(ert-deftest ein:get-cell-at-point--shared-output ()
|
||
(eintest:shared-output-with-buffer
|
||
(should (eq (ein:get-cell-at-point)
|
||
(ein:shared-output-get-cell))))
|
||
(with-temp-buffer
|
||
(should-not (ein:get-cell-at-point--shared-output))))
|
||
|
||
;; FIXME: Add tests with non-empty shared output buffer.
|
||
(eintest:shared-output-is-empty-context-of ein:get-url-or-port)
|
||
(eintest:shared-output-is-empty-context-of ein:get-notebook)
|
||
(eintest:shared-output-is-empty-context-of ein:get-kernel)
|
||
(eintest:shared-output-is-empty-context-of ein:get-traceback-data)
|