aboutsummaryrefslogtreecommitdiff
path: root/tests
diff options
context:
space:
mode:
authorCraig Jennings <c@cjennings.net>2026-05-23 03:50:53 -0500
committerCraig Jennings <c@cjennings.net>2026-05-23 03:50:53 -0500
commit35b7270fea8ec90b80e3b768c3cc2eb6c18f1836 (patch)
tree279b4fe3ad0dcf653ebb7bc80ae66dd76eaadfed /tests
parent4b2505eda61f1b9414b05c51fb75a4733e1d8f8d (diff)
downloaddotemacs-35b7270fea8ec90b80e3b768c3cc2eb6c18f1836.tar.gz
dotemacs-35b7270fea8ec90b80e3b768c3cc2eb6c18f1836.zip
fix(org-babel): correct java structure-template language name
The `<java` Org Tempo template expanded to "#+begin_src javas", a typo for "java", so a Java source block came out tagged with a bogus language. I fixed the entry to "src java" and added a test that pins seven common aliases (bash, zsh, el, py, json, yaml, java) to their intended src language names, so the next typo in the template list gets caught.
Diffstat (limited to 'tests')
-rw-r--r--tests/test-org-babel-config-structure-templates.el32
1 files changed, 32 insertions, 0 deletions
diff --git a/tests/test-org-babel-config-structure-templates.el b/tests/test-org-babel-config-structure-templates.el
new file mode 100644
index 000000000..ccd0a2999
--- /dev/null
+++ b/tests/test-org-babel-config-structure-templates.el
@@ -0,0 +1,32 @@
+;;; test-org-babel-config-structure-templates.el --- Org Tempo template tests -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;; org-babel-config.el registers Org Tempo structure templates (e.g. `<el'
+;; expands to an emacs-lisp src block) by adding entries to
+;; `org-structure-template-alist' in org-tempo's :config. A typo in the
+;; value expands to a bogus language name (a `<java' that produced
+;; "#+begin_src javas"). Requiring the module then org-tempo fires that
+;; config in batch, so this test pins the alias-to-language mapping for the
+;; common aliases.
+
+;;; Code:
+
+(require 'ert)
+(require 'org)
+(require 'ob-core)
+(require 'org-babel-config)
+(require 'org-tempo)
+
+(ert-deftest test-org-babel-structure-templates-map-to-languages ()
+ "Normal: each common alias maps to its intended src language name."
+ (dolist (pair '(("bash" . "src bash")
+ ("zsh" . "src zsh")
+ ("el" . "src emacs-lisp")
+ ("py" . "src python")
+ ("json" . "src json")
+ ("yaml" . "src yaml")
+ ("java" . "src java")))
+ (should (equal (assoc (car pair) org-structure-template-alist) pair))))
+
+(provide 'test-org-babel-config-structure-templates)
+;;; test-org-babel-config-structure-templates.el ends here