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

Fix obsolete warning in test-ein-notebook.el

Browse source
This commit is contained in:
Takafumi Arakaki 2012-08-28 16:44:08 +02:00
parent 1f7e6ec857
commit c7f604fcf9
1 changed files with 17 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

34
tests/test-ein-notebook.el
View file

@ -701,10 +701,10 @@ defined."
(call-interactively #'ein:worksheet-insert-cell-above)
(call-interactively #'ein:worksheet-goto-next-input)
(should (equal (ein:cell-get-text (ein:worksheet-get-current-cell)) text))
(if (eq ein:notebook-enable-undo 'full)
(if (eq ein:worksheet-enable-undo 'full)
(undo)
(should-error (undo)))
(when (eq ein:notebook-enable-undo 'full)
(when (eq ein:worksheet-enable-undo 'full)
;; FIXME: Known bug. (this must succeed.)
(should-error (should (equal (buffer-string) "
In [ ]:
@ -727,10 +727,10 @@ In [ ]:
(undo-boundary)
(should (equal (ein:cell-get-text (ein:worksheet-get-current-cell))
line-2))
(if (eq ein:notebook-enable-undo 'full)
(if (eq ein:worksheet-enable-undo 'full)
(undo)
(should-error (undo)))
(when (eq ein:notebook-enable-undo 'full)
(when (eq ein:worksheet-enable-undo 'full)
(should (equal (buffer-string) "
In [ ]:
@ -766,7 +766,7 @@ second line
(should (equal (ein:cell-get-text (ein:worksheet-get-current-cell))
(concat line-1 "\n" line-2)))
(if (not (eq ein:notebook-enable-undo 'full))
(if (not (eq ein:worksheet-enable-undo 'full))
(should-error (undo))
(undo)
(should (equal (buffer-string) "
@ -780,10 +780,10 @@ In [ ]:
")))
(when (eq ein:notebook-enable-undo 'yes)
(when (eq ein:worksheet-enable-undo 'yes)
;; FIXME: `undo' should work...
(should-error (undo-more 1)))
(when (eq ein:notebook-enable-undo 'full)
(when (eq ein:worksheet-enable-undo 'full)
(undo)
;; FIXME: Known bug... What should the result be?
(should-error (should (equal (buffer-string) "
@ -821,10 +821,10 @@ In [ ]:
(funcall check-output)
;; Undo
(should (equal (ein:cell-get-text cell) text))
(if (eq ein:notebook-enable-undo 'full)
(if (eq ein:worksheet-enable-undo 'full)
(undo)
(should-error (undo)))
(when (eq ein:notebook-enable-undo 'full)
(when (eq ein:worksheet-enable-undo 'full)
(should (equal (ein:cell-get-text cell) ""))
;; FIXME: Known bug. (it must succeed.)
(should-error (funcall check-output))))))
@ -863,10 +863,10 @@ In [ ]:
;; Undo
(should (equal (ein:cell-get-text cell) text))
(should (equal (ein:cell-get-text next-cell) next-text))
(if (eq ein:notebook-enable-undo 'full)
(if (eq ein:worksheet-enable-undo 'full)
(undo)
(should-error (undo)))
(when (eq ein:notebook-enable-undo 'full)
(when (eq ein:worksheet-enable-undo 'full)
(should (equal (ein:cell-get-text cell) text))
;; FIXME: Known bug. (these two must succeed.)
(should-error (should (equal (ein:cell-get-text next-cell) "")))
@ -875,20 +875,20 @@ In [ ]:
(defmacro eintest:notebook-undo-make-tests (name)
"Define three tests ein:NANE/no, ein:NANE/yes and ein:NANE/full
from a function named eintest:NAME where `no'/`yes'/`full' is the
value of `ein:notebook-enable-undo'."
value of `ein:worksheet-enable-undo'."
(let ((func (intern (format "eintest:%s" name)))
(test/no (intern (format "ein:%s/no" name)))
(test/yes (intern (format "ein:%s/yes" name)))
(test/full (intern (format "ein:%s/full" name))))
`(progn
(ert-deftest ,test/no ()
(let ((ein:notebook-enable-undo 'no))
(let ((ein:worksheet-enable-undo 'no))
(,func)))
(ert-deftest ,test/yes ()
(let ((ein:notebook-enable-undo 'yes))
(let ((ein:worksheet-enable-undo 'yes))
(,func)))
(ert-deftest ,test/full ()
(let ((ein:notebook-enable-undo 'full))
(let ((ein:worksheet-enable-undo 'full))
(,func))))))
(eintest:notebook-undo-make-tests notebook-undo-after-insert-above)
@ -901,13 +901,13 @@ value of `ein:notebook-enable-undo'."
(with-current-buffer (ein:testing-notebook-make-empty)
(call-interactively #'ein:worksheet-insert-cell-below)
(loop with events = (ein:$notebook-events ein:%notebook%)
for ein:notebook-enable-undo in '(no yes full) do
for ein:worksheet-enable-undo in '(no yes full) do
(let ((buffer-undo-list '(dummy))
(cell (ein:worksheet-get-current-cell)))
(with-temp-buffer
(should-not (equal buffer-undo-list '(dummy)))
(ein:events-trigger events 'maybe_reset_undo.Worksheet cell))
(if (eq ein:notebook-enable-undo 'yes)
(if (eq ein:worksheet-enable-undo 'yes)
(should (equal buffer-undo-list nil))
(should (equal buffer-undo-list '(dummy))))))))