72 lines
2.3 KiB
EmacsLisp
72 lines
2.3 KiB
EmacsLisp
;;; test-ob-elixir-org.el --- Org integration tests -*- lexical-binding: t; -*-
|
|
|
|
;;; Commentary:
|
|
|
|
;; Org-mode integration tests for ob-elixir package.
|
|
|
|
;;; Code:
|
|
|
|
(require 'ert)
|
|
(require 'org)
|
|
(require 'ob)
|
|
(require 'ob-elixir)
|
|
|
|
;;; Helper Functions
|
|
|
|
(defun ob-elixir-test--ensure-org-babel-loaded ()
|
|
"Ensure org-babel is loaded with Elixir support."
|
|
(setq org-confirm-babel-evaluate nil)
|
|
(org-babel-do-load-languages
|
|
'org-babel-load-languages
|
|
'((elixir . t))))
|
|
|
|
(defun ob-elixir-test--execute-src-block (code &optional header-args)
|
|
"Execute CODE as an Elixir src block with HEADER-ARGS."
|
|
(ob-elixir-test--ensure-org-babel-loaded)
|
|
(let ((org-confirm-babel-evaluate nil))
|
|
(with-temp-buffer
|
|
(org-mode)
|
|
(insert (format "#+BEGIN_SRC elixir%s\n%s\n#+END_SRC"
|
|
(if header-args (concat " " header-args) "")
|
|
code))
|
|
(goto-char (point-min))
|
|
(forward-line 1)
|
|
(org-babel-execute-src-block))))
|
|
|
|
;;; Basic Org Tests
|
|
|
|
(ert-deftest ob-elixir-test-org-simple ()
|
|
"Test simple org block execution."
|
|
(skip-unless (executable-find ob-elixir-command))
|
|
(should (equal "2" (ob-elixir-test--execute-src-block "1 + 1"))))
|
|
|
|
(ert-deftest ob-elixir-test-org-with-var ()
|
|
"Test org block execution with variable."
|
|
(skip-unless (executable-find ob-elixir-command))
|
|
(should (equal "20" (ob-elixir-test--execute-src-block "x * 2" ":var x=10"))))
|
|
|
|
(ert-deftest ob-elixir-test-org-results-output ()
|
|
"Test org block with :results output."
|
|
(skip-unless (executable-find ob-elixir-command))
|
|
(should (equal "hello"
|
|
(ob-elixir-test--execute-src-block
|
|
"IO.puts(\"hello\")"
|
|
":results output"))))
|
|
|
|
(ert-deftest ob-elixir-test-org-results-value ()
|
|
"Test org block with :results value."
|
|
(skip-unless (executable-find ob-elixir-command))
|
|
(should (equal '(1 2 3)
|
|
(ob-elixir-test--execute-src-block
|
|
"[1, 2, 3]"
|
|
":results value"))))
|
|
|
|
(ert-deftest ob-elixir-test-org-table-result ()
|
|
"Test org block returning table."
|
|
(skip-unless (executable-find ob-elixir-command))
|
|
(let ((result (ob-elixir-test--execute-src-block "[[1, 2], [3, 4]]")))
|
|
(should (equal '((1 2) (3 4)) result))))
|
|
|
|
(provide 'test-ob-elixir-org)
|
|
;;; test-ob-elixir-org.el ends here
|