From 27d924b0202a771d07f3884379efbcf379abbed5 Mon Sep 17 00:00:00 2001 From: Takafumi Arakaki Date: Sat, 26 May 2012 21:25:20 +0200 Subject: [PATCH] Fix test-ein-kernel.el --- tests/test-ein-kernel.el | 18 +++++++++++------- 1 file changed, 11 insertions(+), 7 deletions(-) diff --git a/tests/test-ein-kernel.el b/tests/test-ein-kernel.el index e4dfe23..ef2c770 100644 --- a/tests/test-ein-kernel.el +++ b/tests/test-ein-kernel.el @@ -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))