mirror of
https://github.com/vale981/emacs-ipython-notebook
synced 2025-03-08 18:41:38 -05:00
68 lines
2.4 KiB
EmacsLisp
68 lines
2.4 KiB
EmacsLisp
(eval-when-compile (require 'cl))
|
|
(require 'ert)
|
|
|
|
(require 'ein-kernel)
|
|
|
|
|
|
(ert-deftest ein:kernel-start-check-url ()
|
|
(let* ((port 8888)
|
|
(kernel (ein:kernel-new 8888))
|
|
(notebook-id "NOTEBOOK-ID")
|
|
(desired-url "http://127.0.0.1:8888/kernels?notebook=NOTEBOOK-ID")
|
|
got-url)
|
|
(flet ((url-retrieve (url &rest ignore) (setq got-url url)))
|
|
(ein:kernel-start kernel notebook-id nil)
|
|
(should (equal got-url desired-url)))))
|
|
|
|
(ert-deftest ein:kernel-restart-check-url ()
|
|
(let* ((port 8888)
|
|
(kernel (ein:kernel-new 8888))
|
|
(kernel-id "KERNEL-ID")
|
|
(desired-url "http://127.0.0.1:8888/kernels/KERNEL-ID/restart")
|
|
got-url)
|
|
(flet ((url-retrieve (url &rest ignore) (setq got-url url))
|
|
(ein:kernel-start-channels (&rest ignore))
|
|
(ein:kernel-stop-channels (&rest ignore)))
|
|
(ein:kernel--handle-start-kernel
|
|
kernel
|
|
(list :kernel_id kernel-id)
|
|
(lambda ()))
|
|
(ein:kernel-restart kernel nil)
|
|
(should (equal got-url desired-url)))))
|
|
|
|
|
|
(ert-deftest ein:kernel-interrupt-check-url ()
|
|
(let* ((port 8888)
|
|
(kernel (ein:kernel-new 8888))
|
|
(kernel-id "KERNEL-ID")
|
|
(desired-url "http://127.0.0.1:8888/kernels/KERNEL-ID/interrupt")
|
|
got-url)
|
|
(flet ((url-retrieve (url &rest ignore) (setq got-url url))
|
|
(ein:kernel-start-channels (&rest ignore))
|
|
(ein:kernel-stop-channels (&rest ignore)))
|
|
(ein:kernel--handle-start-kernel
|
|
kernel
|
|
(list :kernel_id kernel-id)
|
|
(lambda ()))
|
|
(ein:kernel-interrupt kernel)
|
|
(should (equal got-url desired-url)))))
|
|
|
|
(ert-deftest ein:kernel-kill-check-url ()
|
|
(let* ((port 8888)
|
|
(kernel (ein:kernel-new 8888))
|
|
(kernel-id "KERNEL-ID")
|
|
(desired-url "http://127.0.0.1:8888/kernels/KERNEL-ID")
|
|
got-url)
|
|
(flet ((url-retrieve (url &rest ignore) (setq got-url url))
|
|
(ein:kernel-start-channels (&rest ignore))
|
|
(ein:kernel-stop-channels (&rest ignore)))
|
|
(ein:kernel--handle-start-kernel
|
|
kernel
|
|
(list :kernel_id kernel-id)
|
|
(lambda ()))
|
|
(ein:kernel-kill kernel)
|
|
(let* ((l (split-string got-url "?"))
|
|
(got-url-0 (nth 0 l))
|
|
(got-url-1 (nth 1 l)))
|
|
(should (equal got-url-0 desired-url))
|
|
(should (string-match "^_=[0-9]+$" got-url-1))))))
|