hiro/emacs-jupyter
1
0
Fork 0
mirror of https://github.com/vale981/emacs-jupyter synced 2025-03-05 07:41:37 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add test for org-babel-jupyter-parse-session

Browse source 
* test/jupyter-test.el (org-babel-jupyter-parse-session): New test.
This commit is contained in:
Nathaniel Nicandro 2020-04-04 08:35:23 -05:00
parent 0281704e4d
commit 3aa523ddf2
1 changed files with 28 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
test/jupyter-test.el
View file

@ -1870,6 +1870,34 @@ next(x"))))))
(defvar org-babel-jupyter-resource-directory nil)
(ert-deftest org-babel-jupyter-parse-session ()
:tags '(org)
(require 'ob-jupyter)
(ert-info ("Sessions with a kernel connection file")
(let ((session (org-babel-jupyter-parse-session "/foo/bar.json")))
(should (org-babel-jupyter-remote-session-p session))
(should (org-babel-jupyter-remote-session-connect-repl-p session))
(should (equal (org-babel-jupyter-session-name session) "/foo/bar.json")))
(let ((session (org-babel-jupyter-parse-session "/ssh:ec2:foo/bar.json")))
(should (org-babel-jupyter-remote-session-p session))
(should (org-babel-jupyter-remote-session-connect-repl-p session))
(should (equal (org-babel-jupyter-session-name session) "/ssh:ec2:foo/bar.json"))))
(ert-info ("Server sessions")
(let ((session (org-babel-jupyter-parse-session "/jpy::foo/bar.json")))
(should (org-babel-jupyter-server-session-p session))
(should (equal (org-babel-jupyter-session-name session) "/jpy::foo/bar.json")))
(let ((session (org-babel-jupyter-parse-session "/jpy::foo/bar")))
(should (org-babel-jupyter-server-session-p session))
(should (equal (org-babel-jupyter-session-name session) "/jpy::foo/bar"))))
(ert-info ("Other remote sessions")
(let ((session (org-babel-jupyter-parse-session "/ssh:ec2:foo/bar")))
(should (org-babel-jupyter-remote-session-p session))
(should-not (org-babel-jupyter-remote-session-connect-repl-p session))
(should (equal (org-babel-jupyter-session-name session) "/ssh:ec2:foo/bar"))))
(let ((session (org-babel-jupyter-parse-session "foo/bar")))
(should (org-babel-jupyter-session-p session))
(should (equal (org-babel-jupyter-session-name session) "foo/bar"))))
(ert-deftest ob-jupyter-no-results ()
:tags '(org)
(jupyter-org-test-src-block "1 + 1;" ""))