mirror of
https://github.com/vale981/emacs-ipython-notebook
synced 2025-03-05 09:01:40 -05:00
29 lines
1.2 KiB
EmacsLisp
29 lines
1.2 KiB
EmacsLisp
(require 'ein-notebooklist)
|
||
(require 'ein-testing-notebook)
|
||
|
||
(defun eintest:notebooklist-make-empty (&optional url-or-port)
|
||
"Make empty notebook list buffer."
|
||
(let ((url-or-port (or url-or-port ein:testing-notebook-dummy-url)))
|
||
(cl-letf (((symbol-function 'ein:need-kernelspecs) #'ignore)
|
||
((symbol-function 'ein:content-query-sessions) #'ignore))
|
||
(ein:notebooklist-open--finish url-or-port #'ignore
|
||
(make-ein:$content :url-or-port url-or-port
|
||
:notebook-version "5.7.0"
|
||
:path "")))))
|
||
|
||
(defmacro eintest:notebooklist-is-empty-context-of (func)
|
||
`(ert-deftest ,(intern (format "%s--notebooklist" func)) ()
|
||
(with-current-buffer (eintest:notebooklist-make-empty)
|
||
(should-not (,func)))))
|
||
|
||
|
||
;; Generic getter
|
||
|
||
(ert-deftest ein:get-url-or-port--notebooklist ()
|
||
(with-current-buffer (eintest:notebooklist-make-empty)
|
||
(should (equal (ein:get-url-or-port) ein:testing-notebook-dummy-url))))
|
||
|
||
(eintest:notebooklist-is-empty-context-of ein:get-notebook)
|
||
(eintest:notebooklist-is-empty-context-of ein:get-kernel)
|
||
(eintest:notebooklist-is-empty-context-of ein:get-cell-at-point)
|
||
(eintest:notebooklist-is-empty-context-of ein:get-traceback-data)
|