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
commitf2c7cd50897ba2ddb6eb6dd64d7f8a447a3ff3b0 (patch)
tree542ec11aeb21e6627759ec41cf0fe6fd68f86509 /tests
parente646ebcde5e27985246a869ff4df5db2a12af089 (diff)
downloaddotemacs-f2c7cd50897ba2ddb6eb6dd64d7f8a447a3ff3b0.tar.gz
dotemacs-f2c7cd50897ba2ddb6eb6dd64d7f8a447a3ff3b0.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 00000000..ccd0a299
--- /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