diff --git a/tests/test-ein-shared-output.el b/tests/test-ein-shared-output.el new file mode 100644 index 0000000..8379597 --- /dev/null +++ b/tests/test-ein-shared-output.el @@ -0,0 +1,26 @@ +(require 'ein-shared-output) + +(defmacro eintest:shared-output-with-buffer (&rest body) + (declare (indent 0)) + `(with-current-buffer (ein:shared-output-create-buffer) + (ein:shared-output-get-or-create) + ,@body)) + +(defmacro eintest:shared-output-is-empty-context-of (func) + `(ert-deftest ,(intern (format "%s--shared-output" func)) () + (eintest:shared-output-with-buffer + (should-not (,func))))) + + +;; Generic getter + +(ert-deftest ein:get-cell-at-point--shared-output () + (eintest:shared-output-with-buffer + (should (equal (ein:get-cell-at-point) + (ein:shared-output-get-cell))))) + +;; FIXME: Add tests with non-empty shared output buffer. +(eintest:shared-output-is-empty-context-of ein:get-url-or-port) +(eintest:shared-output-is-empty-context-of ein:get-notebook) +(eintest:shared-output-is-empty-context-of ein:get-kernel) +(eintest:shared-output-is-empty-context-of ein:get-traceback-data)