2012-08-14 22:52:10 +02:00
|
|
|
|
(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
|
2012-08-23 17:23:46 +02:00
|
|
|
|
(should (eq (ein:get-cell-at-point)
|
2012-08-20 15:12:17 +02:00
|
|
|
|
(ein:shared-output-get-cell))))
|
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
|
(should-not (ein:get-cell-at-point--shared-output))))
|
2012-08-14 22:52:10 +02:00
|
|
|
|
|
|
|
|
|
|
;; 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)
|
