[elpa] externals/org 4a30e8cc0c 1/2: test-org-macs.el: Add test for template-expansion bug

[ELPA Syncer]

branch: externals/org
commit 4a30e8cc0cd37c173324a5c1d6384b5ed5798ea9
Author: Andrew Arensburger <arensb>
Commit: Ihor Radchenko <yantar92@gmail.com>

    test-org-macs.el: Add test for template-expansion bug
    
    * testing/lisp/test-org-macs.el (ert-deftest test-org/fill-template):
    There is a bug in `org-fill-template': it sorts and processes keys in
    order of increasing length, so that "noweb" is seen before
    "noweb-ref", and "tangle" before "tangle-mode".  So in a template that
    includes "%noweb-ref", it will substitute the value of "noweb".
    
    This change includes a test for this bug.
    
    TINYCHANGE
---
 testing/lisp/test-org-macs.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/testing/lisp/test-org-macs.el b/testing/lisp/test-org-macs.el
index 05cef12810..93f00a4c51 100644
--- a/testing/lisp/test-org-macs.el
+++ b/testing/lisp/test-org-macs.el
@@ -106,7 +106,16 @@
   (should-not
    (org-test-with-temp-text "xx abc<point> xx"
      (org-in-regexp "abc" nil t))))
+
+;;; Template
 
+(ert-deftest test-org/fill-template ()
+  "Test `org-fill-template'"
+  (should
+   (string= "working"
+            (org-fill-template "%var-long"
+                               '(("var" . "broken")
+                                 ("var-long" . "working"))))))
 
 ;;; Time