Fix failing tests in test-ein-kernel.el

This commit is contained in:
Takafumi Arakaki 2012-06-13 01:01:09 +02:00
parent 255b3a7696
commit e27ea820ae

View file

@ -14,7 +14,8 @@
(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) 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)
(should (equal got-url desired-url)))))
@ -25,6 +26,7 @@
(dummy-buffer (get-buffer-create "*eintest:dummy*"))
got-url)
(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:websocket (&rest ignore) (make-ein:$websocket))
(ein:events-trigger (&rest ignore)))
@ -40,6 +42,7 @@
(dummy-buffer (get-buffer-create "*eintest:dummy*"))
got-url)
(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:websocket (&rest ignore) (make-ein:$websocket)))
(ein:kernel--kernel-started kernel :data (list :kernel_id kernel-id))
@ -53,6 +56,7 @@
(dummy-buffer (get-buffer-create "*eintest:dummy*"))
got-url)
(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:websocket (&rest ignore) (make-ein:$websocket)))
(ein:kernel--kernel-started kernel :data (list :kernel_id kernel-id))