mirror of
https://github.com/vale981/emacs-ipython-notebook
synced 2025-03-05 17:11:41 -05:00
122 lines
4.9 KiB
EmacsLisp
122 lines
4.9 KiB
EmacsLisp
;;; -*- lexical-binding: t; -*-
|
|
(require 'f)
|
|
(require 'espuds)
|
|
(require 'ert)
|
|
(require 'undo-tree)
|
|
(require 'python)
|
|
(require 'julia-mode)
|
|
(require 'ess-r-mode)
|
|
|
|
(let* ((support-path (f-dirname load-file-name))
|
|
(root-path (f-parent (f-parent support-path))))
|
|
(add-to-list 'load-path (concat root-path "/lisp"))
|
|
(add-to-list 'load-path (concat root-path "/test")))
|
|
|
|
(require 'ein-notebooklist)
|
|
(require 'ein-jupyter)
|
|
(require 'ein-dev)
|
|
(require 'ein-testing)
|
|
(require 'ein-ipynb-mode)
|
|
(require 'ein-contents-api)
|
|
(require 'poly-ein)
|
|
(require 'ob-ein)
|
|
|
|
(!cons "timestamp" ecukes-exclude-tags)
|
|
|
|
(unless (member "jupyterhub" ecukes-include-tags)
|
|
(!cons "jupyterhub" ecukes-exclude-tags))
|
|
|
|
(when (file-exists-p (concat default-directory "features/support/test-poly.el"))
|
|
(load-file (concat default-directory "features/support/test-poly.el")))
|
|
|
|
;; how to turn off undo-tree-mode under polymode?
|
|
(!cons "evil" ecukes-exclude-tags)
|
|
|
|
(when (getenv "GITHUB_ACTIONS")
|
|
(cl-assert (not (eq system-type 'darwin)))
|
|
(!cons "memory" ecukes-exclude-tags)
|
|
(!cons "content" ecukes-exclude-tags)
|
|
(!cons "svg" ecukes-exclude-tags))
|
|
|
|
(defvar ein:testing-jupyter-server-root (f-parent (f-dirname load-file-name)))
|
|
|
|
(defun ein:testing-after-scenario ()
|
|
(ein:testing-flush-queries)
|
|
(with-current-buffer (ein:notebooklist-get-buffer (car (ein:jupyter-server-conn-info)))
|
|
(cl-loop for notebook in (ein:notebook-opened-notebooks)
|
|
for url-or-port = (ein:$notebook-url-or-port notebook)
|
|
for path = (ein:$notebook-notebook-path notebook)
|
|
for done-p = nil
|
|
do (ein:notebook-kill-kernel-then-close-command
|
|
notebook (lambda (_kernel) (setq done-p t)))
|
|
do (cl-loop repeat 16
|
|
until done-p
|
|
do (sleep-for 0 1000)
|
|
finally do (unless done-p
|
|
(ein:display-warning (format "cannot close %s" path))))
|
|
do (when (or (ob-ein-anonymous-p path)
|
|
(search "Untitled" path)
|
|
(search "Renamed" path))
|
|
(ein:notebooklist-delete-notebook ein:%notebooklist% url-or-port path)
|
|
(cl-loop with fullpath = (concat (file-name-as-directory ein:testing-jupyter-server-root) path)
|
|
repeat 10
|
|
for extant = (file-exists-p fullpath)
|
|
until (not extant)
|
|
do (sleep-for 0 1000)
|
|
finally do (when extant
|
|
(ein:display-warning (format "cannot delete %s" path)))))))
|
|
(aif (ein:notebook-opened-notebooks)
|
|
(cl-loop for nb in it
|
|
for path = (ein:$notebook-notebook-path nb)
|
|
do (ein:log 'debug "Notebook %s still open" path)
|
|
finally do (assert nil)))
|
|
(cl-loop repeat 30
|
|
for stragglers = (file-name-all-completions "Untitled"
|
|
ein:testing-jupyter-server-root)
|
|
until (null stragglers)
|
|
do (message "ein:testing-after-scenario: fs stale handles: %s"
|
|
(mapconcat #'identity stragglers ", "))
|
|
do (sleep-for 0 1000)
|
|
finally do (should-not stragglers)))
|
|
|
|
(Setup
|
|
(ein:dev-start-debug)
|
|
(cl-assert (boundp 'company-frontends))
|
|
(custom-set-variables '(company-frontends nil)
|
|
'(python-indent-guess-indent-offset-verbose nil)
|
|
'(ein:jupyter-use-containers nil))
|
|
(setq ein:jupyter-default-kernel
|
|
(cl-loop with cand = ""
|
|
for (k . spec) in
|
|
(alist-get
|
|
'kernelspecs
|
|
(let ((json-object-type 'alist))
|
|
(json-read-from-string
|
|
(shell-command-to-string
|
|
(format "%s kernelspec list --json"
|
|
ein:jupyter-server-command)))))
|
|
if (let ((lang (alist-get 'language (alist-get 'spec spec))))
|
|
(and (string= "python" lang)
|
|
(string> (symbol-name k) cand)))
|
|
do (setq cand (symbol-name k))
|
|
end
|
|
finally return (intern cand)))
|
|
(setq ein:testing-dump-file-log (concat default-directory "log/ecukes.log"))
|
|
(setq ein:testing-dump-file-messages (concat default-directory "log/ecukes.messages"))
|
|
(setq ein:testing-dump-file-server (concat default-directory "log/ecukes.server"))
|
|
(setq ein:testing-dump-file-websocket (concat default-directory "log/ecukes.websocket"))
|
|
(setq ein:testing-dump-file-request (concat default-directory "log/ecukes.request"))
|
|
(setq org-confirm-babel-evaluate nil)
|
|
(setq transient-mark-mode t)
|
|
(Given "I start and login to the server configured \"\\n\""))
|
|
|
|
(After
|
|
(ein:testing-after-scenario))
|
|
|
|
(Teardown
|
|
(Given "I finally stop the server"))
|
|
|
|
(Fail
|
|
(if noninteractive
|
|
(ein:testing-after-scenario)
|
|
(keyboard-quit))) ;; useful to prevent emacs from quitting
|