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

Add tests for ein:kernel-construct-help-string

Browse source
This commit is contained in:
Takafumi Arakaki 2012-07-25 22:16:05 +02:00
parent 5af748430b
commit 7015abf223
1 changed files with 30 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
tests/test-ein-kernel.el
View file

@ -66,3 +66,33 @@
(got-url-1 (nth 1 l)))
(should (equal got-url-0 desired-url))
(should (string-match "^_=[0-9]+$" got-url-1))))))
;;; Test `ein:kernel-construct-help-string'
(ert-deftest ein:kernel-construct-help-string-when-found ()
(let ((callsig "function(a=1, b=2, c=d)")
(docstring "This function does what."))
(loop for pcallsig in '(:call_def :init_definition :definition)
do (loop for pdoc in '(:call_docstring :init_docstring :docstring)
do (should (equal (ein:kernel-construct-help-string
(list pcallsig callsig
pdoc docstring))
(format "%s\n%s" callsig docstring)))))))
(ert-deftest ein:kernel-construct-help-string-when-callsig-found ()
(let ((callsig "function(a=1, b=2, c=d)"))
(loop for pcallsig in '(:call_def :init_definition :definition)
do (should (equal (ein:kernel-construct-help-string
(list pcallsig callsig))
callsig)))))
(ert-deftest ein:kernel-construct-help-string-when-doc-found ()
(let ((docstring "This function does what."))
(loop for pdoc in '(:call_docstring :init_docstring :docstring)
do (should (equal (ein:kernel-construct-help-string
(list pdoc docstring))
docstring)))))
(ert-deftest ein:kernel-construct-help-string-when-not-found ()
(should (equal (ein:kernel-construct-help-string nil) nil)))