mirror of
https://github.com/vale981/emacs-ipython-notebook
synced 2025-03-06 01:21:38 -05:00
4e7d56a7d9
* Documentation chasing the commit tail. * This really belongs with the project. No longer 100% up to date, but worth including if nothing more than for historical purposes. * Update ob-ein documentation. * Fix testing for emacs 27. Shouldn't setq a structure accessor. * Add the changelog. * Workaround for issue #559. Force ein to use an earlier version (0.9) of websocket. * Update to v0.16.1 * Add changelog. One of these days I will remember. * Get my links right. * Revert now that websocket is working again. * Doc updates, dependency updates, prepare for another release. Make sure we point to a working version of websocket. Documenting some changes so we can release v0.16.2. * Make sure we get all the documentation changes in. * Latest IPython version is 7.5. Update travis accordingly.
72 lines
3.5 KiB
EmacsLisp
72 lines
3.5 KiB
EmacsLisp
(eval-when-compile (require 'cl))
|
||
(require 'ert)
|
||
|
||
(require 'ein-kernel)
|
||
(require 'ein-testing-kernel)
|
||
(require 'ein-testing-notebook)
|
||
|
||
(defun eintest:kernel-new (port)
|
||
(ein:kernel-new port "" nil "/api/kernels"
|
||
(get-buffer-create "*eintest: dummy for kernel test*")))
|
||
|
||
(ert-deftest ein:kernel-restart-check-url ()
|
||
(lexical-let* ((notebook (ein:notebook-new ein:testing-notebook-dummy-url "" nil))
|
||
(kernel (eintest:kernel-new 8888))
|
||
(kernel-id "KERNEL-ID")
|
||
(desired-url "http://127.0.0.1:8888/api/sessions/KERNEL-ID")
|
||
(dummy-response (make-request-response))
|
||
got-url)
|
||
(setf (ein:$notebook-kernel notebook) kernel)
|
||
(cl-letf (((symbol-function 'request)
|
||
(lambda (url &rest ignore) (setq got-url url) dummy-response))
|
||
((symbol-function 'set-process-query-on-exit-flag) #'ignore)
|
||
((symbol-function 'ein:kernel-stop-channels) #'ignore)
|
||
((symbol-function 'ein:websocket) (lambda (&rest ignore) (make-ein:$websocket :ws nil :kernel kernel :closed-by-client nil)))
|
||
((symbol-function 'ein:events-trigger) #'ignore)
|
||
((symbol-function 'ein:get-notebook-or-error) (lambda () (ein:get-notebook))))
|
||
(ein:kernel-retrieve-session--success
|
||
kernel nil :data (list :ws_url "ws://127.0.0.1:8888" :id kernel-id))
|
||
(ein:kernel-restart-session (ein:$notebook-kernel notebook))
|
||
(should (equal got-url desired-url)))))
|
||
|
||
(ert-deftest ein:kernel-interrupt-check-url ()
|
||
(let* ((kernel (eintest:kernel-new 8888))
|
||
(kernel-id "KERNEL-ID")
|
||
(desired-url "http://127.0.0.1:8888/api/kernels/KERNEL-ID/interrupt")
|
||
(dummy-response (make-request-response))
|
||
got-url)
|
||
(flet ((request (url &rest ignore) (setq got-url url) dummy-response)
|
||
(set-process-query-on-exit-flag (process flag))
|
||
(ein:kernel-stop-channels (&rest ignore))
|
||
(ein:websocket (url kernel on-message on-close on-open) (make-ein:$websocket :ws nil :kernel kernel :closed-by-client nil))
|
||
(ein:websocket-open-p (websocket) t))
|
||
(ein:kernel-retrieve-session--success
|
||
kernel nil :data (list :ws_url "ws://127.0.0.1:8888" :id kernel-id))
|
||
(ein:kernel-interrupt kernel)
|
||
(should (equal got-url desired-url)))))
|
||
|
||
(ert-deftest ein:kernel-kill-check-url ()
|
||
(let* ((kernel (eintest:kernel-new 8888))
|
||
(kernel-id "KERNEL-ID")
|
||
(desired-url "http://127.0.0.1:8888/api/sessions/KERNEL-ID")
|
||
(dummy-response (make-request-response))
|
||
got-url)
|
||
(flet ((request (url &rest ignore) (setq got-url url) dummy-response)
|
||
(set-process-query-on-exit-flag (process flag))
|
||
(ein:kernel-stop-channels (&rest ignore))
|
||
(ein:websocket (url kernel on-message on-close on-open) (make-ein:$websocket :ws nil :kernel kernel :closed-by-client nil)))
|
||
(ein:kernel-retrieve-session--success
|
||
kernel nil :data (list :ws_url "ws://127.0.0.1:8888" :id kernel-id))
|
||
(ein:kernel-delete-session kernel))
|
||
(should (equal got-url desired-url))))
|
||
|
||
|
||
;;; Test `ein:kernel-construct-help-string'
|
||
|
||
(ert-deftest ein:kernel-construct-help-string-when-found ()
|
||
(ein:testing-kernel-construct-help-string-loop))
|
||
|
||
(ert-deftest ein:kernel-construct-help-string-when-not-found ()
|
||
(should (equal (ein:kernel-construct-help-string nil) nil)))
|
||
;; Included in `ein:kernel-construct-help-string-when-found', but test
|
||
;; it explicitly to be sure.
|