hiro/emacs-ipython-notebook
1
0
Fork 0
mirror of https://github.com/vale981/emacs-ipython-notebook synced 2025-03-06 09:31:39 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix test-ein-kernel.el

Browse source
This commit is contained in:
Takafumi Arakaki 2012-05-26 21:25:20 +02:00
parent 58fbfc3f0e
commit 27d924b020
1 changed files with 11 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
tests/test-ein-kernel.el
View file

@ -12,8 +12,9 @@
(let* ((kernel (eintest:kernel-new 8888))
(notebook-id "NOTEBOOK-ID")
(desired-url "http://127.0.0.1:8888/kernels?notebook=NOTEBOOK-ID")
(dummy-buffer (get-buffer-create "*eintest:dummy*"))
got-url)
(flet ((url-retrieve (url &rest ignore) (setq got-url url)))
(flet ((url-retrieve (url &rest ignore) (setq got-url url) dummy-buffer))
(ein:kernel-start kernel notebook-id)
(should (equal got-url desired-url)))))
@ -21,12 +22,13 @@
(let* ((kernel (eintest:kernel-new 8888))
(kernel-id "KERNEL-ID")
(desired-url "http://127.0.0.1:8888/kernels/KERNEL-ID/restart")
(dummy-buffer (get-buffer-create "*eintest:dummy*"))
got-url)
(flet ((url-retrieve (url &rest ignore) (setq got-url url));
(flet ((url-retrieve (url &rest ignore) (setq got-url url) dummy-buffer)
(ein:kernel-stop-channels (&rest ignore))
(ein:websocket (&rest ignore) (make-ein:$websocket))
(ein:events-trigger (&rest ignore)))
(ein:kernel--kernel-started kernel (list :kernel_id kernel-id))
(ein:kernel--kernel-started kernel :data (list :kernel_id kernel-id))
(ein:kernel-restart kernel)
(should (equal got-url desired-url)))))
@ -35,11 +37,12 @@
(let* ((kernel (eintest:kernel-new 8888))
(kernel-id "KERNEL-ID")
(desired-url "http://127.0.0.1:8888/kernels/KERNEL-ID/interrupt")
(dummy-buffer (get-buffer-create "*eintest:dummy*"))
got-url)
(flet ((url-retrieve (url &rest ignore) (setq got-url url))
(flet ((url-retrieve (url &rest ignore) (setq got-url url) dummy-buffer)
(ein:kernel-stop-channels (&rest ignore))
(ein:websocket (&rest ignore) (make-ein:$websocket)))
(ein:kernel--kernel-started kernel (list :kernel_id kernel-id))
(ein:kernel--kernel-started kernel :data (list :kernel_id kernel-id))
(ein:kernel-interrupt kernel)
(should (equal got-url desired-url)))))
@ -47,11 +50,12 @@
(let* ((kernel (eintest:kernel-new 8888))
(kernel-id "KERNEL-ID")
(desired-url "http://127.0.0.1:8888/kernels/KERNEL-ID")
(dummy-buffer (get-buffer-create "*eintest:dummy*"))
got-url)
(flet ((url-retrieve (url &rest ignore) (setq got-url url))
(flet ((url-retrieve (url &rest ignore) (setq got-url url) dummy-buffer)
(ein:kernel-stop-channels (&rest ignore))
(ein:websocket (&rest ignore) (make-ein:$websocket)))
(ein:kernel--kernel-started kernel (list :kernel_id kernel-id))
(ein:kernel--kernel-started kernel :data (list :kernel_id kernel-id))
(ein:kernel-kill kernel)
(let* ((l (split-string got-url "?"))
(got-url-0 (nth 0 l))