From dd9b47fde9657315903196bdd25caf83c9277a9a Mon Sep 17 00:00:00 2001
From: Craig Jennings <c@cjennings.net>
Date: Sat, 23 May 2026 03:50:53 -0500
Subject: 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.
---
 tests/test-org-babel-config-structure-templates.el | 32 ++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 tests/test-org-babel-config-structure-templates.el

(limited to 'tests')

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
-- 
cgit v1.2.3