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

Fix failing tests in test-ein-kernel.el

Browse source
This commit is contained in:
Takafumi Arakaki 2012-06-13 01:01:09 +02:00
parent 255b3a7696
commit e27ea820ae
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -14,7 +14,8 @@
(desired-url "http://127.0.0.1:8888/kernels?notebook=NOTEBOOK-ID") (desired-url "http://127.0.0.1:8888/kernels?notebook=NOTEBOOK-ID")
(dummy-buffer (get-buffer-create "*eintest:dummy*")) (dummy-buffer (get-buffer-create "*eintest:dummy*"))
got-url) got-url)
(flet ((url-retrieve (url &rest ignore) (setq got-url url) dummy-buffer)) (flet ((url-retrieve (url &rest ignore) (setq got-url url) dummy-buffer)
(set-process-query-on-exit-flag (process flag)))
(ein:kernel-start kernel notebook-id) (ein:kernel-start kernel notebook-id)
(should (equal got-url desired-url))))) (should (equal got-url desired-url)))))
@ -25,6 +26,7 @@
(dummy-buffer (get-buffer-create "*eintest:dummy*")) (dummy-buffer (get-buffer-create "*eintest:dummy*"))
got-url) got-url)
(flet ((url-retrieve (url &rest ignore) (setq got-url url) dummy-buffer) (flet ((url-retrieve (url &rest ignore) (setq got-url url) dummy-buffer)
(set-process-query-on-exit-flag (process flag))
(ein:kernel-stop-channels (&rest ignore)) (ein:kernel-stop-channels (&rest ignore))
(ein:websocket (&rest ignore) (make-ein:$websocket)) (ein:websocket (&rest ignore) (make-ein:$websocket))
(ein:events-trigger (&rest ignore))) (ein:events-trigger (&rest ignore)))
@ -40,6 +42,7 @@
(dummy-buffer (get-buffer-create "*eintest:dummy*")) (dummy-buffer (get-buffer-create "*eintest:dummy*"))
got-url) got-url)
(flet ((url-retrieve (url &rest ignore) (setq got-url url) dummy-buffer) (flet ((url-retrieve (url &rest ignore) (setq got-url url) dummy-buffer)
(set-process-query-on-exit-flag (process flag))
(ein:kernel-stop-channels (&rest ignore)) (ein:kernel-stop-channels (&rest ignore))
(ein:websocket (&rest ignore) (make-ein:$websocket))) (ein:websocket (&rest ignore) (make-ein:$websocket)))
(ein:kernel--kernel-started kernel :data (list :kernel_id kernel-id)) (ein:kernel--kernel-started kernel :data (list :kernel_id kernel-id))
@ -53,6 +56,7 @@
(dummy-buffer (get-buffer-create "*eintest:dummy*")) (dummy-buffer (get-buffer-create "*eintest:dummy*"))
got-url) got-url)
(flet ((url-retrieve (url &rest ignore) (setq got-url url) dummy-buffer) (flet ((url-retrieve (url &rest ignore) (setq got-url url) dummy-buffer)
(set-process-query-on-exit-flag (process flag))
(ein:kernel-stop-channels (&rest ignore)) (ein:kernel-stop-channels (&rest ignore))
(ein:websocket (&rest ignore) (make-ein:$websocket))) (ein:websocket (&rest ignore) (make-ein:$websocket)))
(ein:kernel--kernel-started kernel :data (list :kernel_id kernel-id)) (ein:kernel--kernel-started kernel :data (list :kernel_id kernel-id))