mirror of
https://github.com/vale981/emacs-ipython-notebook
synced 2025-03-06 01:21:38 -05:00
29 lines
1,005 B
EmacsLisp
29 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)
|