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 compiler warnings in func-test.el

Browse source 
%s/(ein:notebook-insert-cell-below-command)/(call-interactively #'ein:worksheet-insert-cell-below)/g
%s/(ein:notebook-execute-current-cell)/(call-interactively #'ein:worksheet-execute-cell)/g
This commit is contained in:
Takafumi Arakaki 2012-08-20 10:41:59 +02:00
parent d13c3ae6a5
commit 37cacec4e9
1 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
tests/func-test.el
View file

@ -81,9 +81,9 @@ Make MAX-COUNT larger \(default 50) to wait longer before timeout."
(eintest:wait-until (lambda () (ein:aand (ein:$notebook-kernel notebook)
(ein:kernel-live-p it))))
(with-current-buffer (ein:notebook-buffer notebook)
(ein:notebook-insert-cell-below-command)
(call-interactively #'ein:worksheet-insert-cell-below)
(insert "a = 100\na")
(let ((cell (ein:notebook-execute-current-cell)))
(let ((cell (call-interactively #'ein:worksheet-execute-cell)))
(eintest:wait-until (lambda () (not (oref cell :running)))))
;; (message "%s" (buffer-string))
(save-excursion
@ -95,10 +95,10 @@ Make MAX-COUNT larger \(default 50) to wait longer before timeout."
(eintest:wait-until (lambda () (ein:aand (ein:$notebook-kernel notebook)
(ein:kernel-live-p it))))
(with-current-buffer (ein:notebook-buffer notebook)
(ein:notebook-insert-cell-below-command)
(call-interactively #'ein:worksheet-insert-cell-below)
(insert (ein:join-str "\n" '("import pylab"
"pylab.plot([1,2,3])")))
(let ((cell (ein:notebook-execute-current-cell)))
(let ((cell (call-interactively #'ein:worksheet-execute-cell)))
(eintest:wait-until (lambda () (not (oref cell :running)))))
(save-excursion
(should (search-forward-regexp "Out \\[[0-9]+\\]" nil t))
@ -110,9 +110,9 @@ Make MAX-COUNT larger \(default 50) to wait longer before timeout."
(eintest:wait-until (lambda () (ein:aand (ein:$notebook-kernel notebook)
(ein:kernel-live-p it))))
(with-current-buffer (ein:notebook-buffer notebook)
(ein:notebook-insert-cell-below-command)
(call-interactively #'ein:worksheet-insert-cell-below)
(insert "print 'Hello'")
(let ((cell (ein:notebook-execute-current-cell)))
(let ((cell (call-interactively #'ein:worksheet-execute-cell)))
(eintest:wait-until (lambda () (not (oref cell :running)))))
(save-excursion
(should-not (search-forward-regexp "Out \\[[0-9]+\\]" nil t))
@ -123,9 +123,9 @@ Make MAX-COUNT larger \(default 50) to wait longer before timeout."
(eintest:wait-until (lambda () (ein:aand (ein:$notebook-kernel notebook)
(ein:kernel-live-p it))))
(with-current-buffer (ein:notebook-buffer notebook)
(ein:notebook-insert-cell-below-command)
(call-interactively #'ein:worksheet-insert-cell-below)
(insert "range?")
(let ((cell (ein:notebook-execute-current-cell)))
(let ((cell (call-interactively #'ein:worksheet-execute-cell)))
(eintest:wait-until (lambda () (not (oref cell :running)))))
(with-current-buffer (get-buffer (ein:$notebook-pager ein:%notebook%))
(should (search-forward "Docstring:\nrange"))))))
@ -135,7 +135,7 @@ Make MAX-COUNT larger \(default 50) to wait longer before timeout."
(eintest:wait-until (lambda () (ein:aand (ein:$notebook-kernel notebook)
(ein:kernel-live-p it))))
(with-current-buffer (ein:notebook-buffer notebook)
(ein:notebook-insert-cell-below-command)
(call-interactively #'ein:worksheet-insert-cell-below)
(let ((pager-name (ein:$notebook-pager ein:%notebook%)))
(ein:aif (get-buffer pager-name)
(kill-buffer it))