emacs-ipython-notebook/tests/test-ein-notebook.el

14 lines
528 B
EmacsLisp
Raw Normal View History

2012-05-13 04:47:41 +02:00
(eval-when-compile (require 'cl))
(require 'ert)
(require 'ein-notebook)
(ert-deftest ein:notebook-test-notebook-name-simple ()
(should-not (ein:notebook-test-notebook-name nil))
(should-not (ein:notebook-test-notebook-name ""))
(should-not (ein:notebook-test-notebook-name "/"))
(should-not (ein:notebook-test-notebook-name "\\"))
(should-not (ein:notebook-test-notebook-name "a/b"))
(should-not (ein:notebook-test-notebook-name "a\\b"))
(should (ein:notebook-test-notebook-name "This is a OK notebook name")))