mirror of
https://github.com/vale981/emacs-ipython-notebook
synced 2025-03-05 09:01:40 -05:00
43 lines
1.4 KiB
EmacsLisp
43 lines
1.4 KiB
EmacsLisp
(eval-when-compile (require 'cl))
|
||
(require 'ert)
|
||
|
||
(require 'ein-iexec)
|
||
(require 'ein-testing-notebook)
|
||
|
||
|
||
;;; `ein:iexec-should-execute-p'
|
||
|
||
(defun* eintest:iexec-should-execute-p (cell &key (this-command t) beg end)
|
||
"Simple wrapper for `ein:iexec-should-execute-p' which
|
||
returns `t' by default, if the CELL is code cell."
|
||
(unless beg (setq beg (ein:cell-input-pos-min cell)))
|
||
(unless end (setq end (ein:cell-input-pos-max cell)))
|
||
(ein:iexec-should-execute-p cell beg end))
|
||
|
||
;; cell types
|
||
|
||
(ert-deftest ein:iexec-should-execute-p-codecell ()
|
||
(ein:testing-with-one-cell 'code
|
||
(should (eintest:iexec-should-execute-p cell))))
|
||
|
||
(ert-deftest ein:iexec-should-execute-p-markdowncell ()
|
||
(ein:testing-with-one-cell 'markdown
|
||
(should-not (eintest:iexec-should-execute-p cell))))
|
||
|
||
(ert-deftest ein:iexec-should-execute-p-dead-cell ()
|
||
(ein:testing-with-one-cell 'code
|
||
(should-not (eintest:iexec-should-execute-p (ein:cell-copy cell)))))
|
||
|
||
;; other
|
||
|
||
(ert-deftest ein:iexec-should-execute-p-non-interactive ()
|
||
(ein:testing-with-one-cell 'code
|
||
(should-not (eintest:iexec-should-execute-p cell :this-command nil))))
|
||
|
||
(ert-deftest ein:iexec-should-execute-p-beg-too-small ()
|
||
(ein:testing-with-one-cell 'code
|
||
(should-not (eintest:iexec-should-execute-p cell :beg (point-min)))))
|
||
|
||
(ert-deftest ein:iexec-should-execute-p-end-too-big ()
|
||
(ein:testing-with-one-cell 'code
|
||
(should-not (eintest:iexec-should-execute-p cell :end (point-max)))))
|