2018-10-21 13:00:33 -04:00
|
|
|
|
(eval-when-compile (require 'cl))
|
|
|
|
|
|
(require 'ert)
|
|
|
|
|
|
(require 'ob-ein)
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; Test utils
|
|
|
|
|
|
|
|
|
|
|
|
;;; This is the content portion of a response fromt he content API.
|
|
|
|
|
|
(defvar eintest:ob-src-block
|
|
|
|
|
|
"#+BEGIN_SRC ein :session 8888/Untitled.ipynb
|
|
|
|
|
|
import sys
|
|
|
|
|
|
|
|
|
|
|
|
a = 14500
|
|
|
|
|
|
b = a+1000
|
|
|
|
|
|
sys.version
|
|
|
|
|
|
#+END_SRC
|
|
|
|
|
|
")
|
|
|
|
|
|
|
|
|
|
|
|
(ert-deftest ein:ob-aware ()
|
2019-02-14 15:28:18 -05:00
|
|
|
|
(let ((org-babel-load-languages (quote ((ein . t)))))
|
2018-10-21 13:00:33 -04:00
|
|
|
|
(with-temp-buffer
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(org-mode)
|
|
|
|
|
|
(insert eintest:ob-src-block)
|
|
|
|
|
|
(search-backward "SRC")
|
2019-02-14 15:28:18 -05:00
|
|
|
|
(cl-letf (((symbol-function 'ob-ein--initiate-session)
|
|
|
|
|
|
(lambda (&rest args) (make-ein:$notebook))))
|
2018-10-24 13:12:16 -04:00
|
|
|
|
(should (call-interactively #'org-edit-special)))))))
|
