mirror of
https://github.com/vale981/emacs-ipython-notebook
synced 2025-03-06 09:31:39 -05:00
fdf626cc98
In theory these tests are for IPython 2.x. Still need to work out how to include all this in travis.
47 lines
1.6 KiB
EmacsLisp
47 lines
1.6 KiB
EmacsLisp
(require 'ein-connect)
|
|
(require 'ein-testing-notebook)
|
|
|
|
(defmacro eintest:with-connected-buffer (&rest body)
|
|
(declare (indent 0))
|
|
`(let* ((notebook-buffer (ein:testing-notebook-make-empty))
|
|
(notebook (buffer-local-value 'ein:notebook notebook-buffer)))
|
|
(with-temp-buffer
|
|
(erase-buffer)
|
|
(ein:connect-buffer-to-notebook notebook)
|
|
,@body)))
|
|
|
|
(ert-deftest ein:get-url-or-port--connect ()
|
|
(eintest:with-connected-buffer
|
|
(should (equal (ein:get-url-or-port)
|
|
(ein:$notebook-url-or-port notebook)))))
|
|
|
|
(ert-deftest ein:get-notebook--connect ()
|
|
(eintest:with-connected-buffer
|
|
(should (eq (ein:get-notebook) notebook))))
|
|
|
|
(ert-deftest ein:get-kernel--connect ()
|
|
(eintest:with-connected-buffer
|
|
(should (eq (ein:get-kernel)
|
|
(ein:$notebook-kernel notebook)))))
|
|
|
|
(ert-deftest ein:get-cell-at-point--connect ()
|
|
"`ein:get-cell-at-point' is in empty context in connected buffer."
|
|
(eintest:with-connected-buffer
|
|
(should-not (ein:get-cell-at-point))))
|
|
|
|
(ert-deftest ein:get-traceback-data--connect ()
|
|
(eintest:with-connected-buffer
|
|
;; FIXME: write test with non-empty TB
|
|
(should-not (ein:get-traceback-data))))
|
|
|
|
(ert-deftest ein:connect-mode-revert-buffer-resistance ()
|
|
(let ((temp-file (make-temp-file "ein")))
|
|
(unwind-protect
|
|
(with-temp-buffer
|
|
(setq buffer-file-name temp-file)
|
|
(ein:connect-mode 1)
|
|
(setq ein:%connect% 'very-important-value)
|
|
(revert-buffer t t nil)
|
|
(should ein:connect-mode)
|
|
(should (eq ein:%connect% 'very-important-value)))
|
|
(delete-file temp-file))))
|