1 files changed, 42 insertions, 0 deletions
diff --git a/tests/test-gloss-core--alphabetical-insert.el b/tests/test-gloss-core--alphabetical-insert.el
new file mode 100644
index 0000000..69c6c95
--- /dev/null
+++ b/tests/test-gloss-core--alphabetical-insert.el
@@ -0,0 +1,42 @@
+;;; test-gloss-core--alphabetical-insert.el --- Tests for alphabetical insert -*- lexical-binding: t -*-
+
+;; SPDX-License-Identifier: GPL-3.0-or-later
+
+;;; Commentary:
+;; Tests that `gloss-core-save' inserts new entries at the correct
+;; alphabetical position (case-insensitive ordering).
+
+;;; Code:
+
+(require 'ert)
+(require 'gloss-core)
+(require 'testutil-gloss)
+
+(ert-deftest test-gloss-core-alphabetical-insert-correct-position ()
+  "Normal: terms saved out of order land in alphabetical order."
+  (gloss-test--with-temp-glossary "#+TITLE: Glossary\n"
+    (gloss-core-save "Charlie" "Third." 'manual)
+    (gloss-core-save "Alpha" "First." 'manual)
+    (gloss-core-save "Bravo" "Second." 'manual)
+    (should (equal (gloss-core-list) '("Alpha" "Bravo" "Charlie")))))
+
+(ert-deftest test-gloss-core-alphabetical-insert-case-insensitive-ordering ()
+  "Boundary: ordering uses a case-insensitive compare."
+  (gloss-test--with-temp-glossary "#+TITLE: Glossary\n"
+    (gloss-core-save "banana" "Fruit." 'manual)
+    (gloss-core-save "Apple" "Also fruit." 'manual)
+    (should (equal (gloss-core-list) '("Apple" "banana")))))
+
+(ert-deftest test-gloss-core-alphabetical-insert-on-disk-matches-list ()
+  "Boundary: the on-disk file order matches the list order."
+  (gloss-test--with-temp-glossary "#+TITLE: Glossary\n"
+    (gloss-core-save "zebra" "Last." 'manual)
+    (gloss-core-save "alpha" "First." 'manual)
+    (let ((file-content (with-temp-buffer
+                          (insert-file-contents gloss-file)
+                          (buffer-string))))
+      (should (< (string-match "^\\* alpha" file-content)
+                 (string-match "^\\* zebra" file-content))))))
+
+(provide 'test-gloss-core--alphabetical-insert)
+;;; test-gloss-core--alphabetical-insert.el ends here