Adapt the CEDET SRecoder template test to use ERT

These tests were copied from CEDET from SourceForge.
Author: Eric Ludlam <zappo@gnu.org>

2 files changed, 111 insertions, 2 deletions

diff --git a/etc/srecode/proj-test.srt b/etc/srecode/proj-test.srt
new file mode 100644
index 00000000000..c97016fc448
--- /dev/null
+++ b/etc/srecode/proj-test.srt
@@ -0,0 +1,37 @@
+;; proj-test.srt --- SRecode template for testing project scoping.
+
+;; Copyright (C) 2008-2019 Free Software Foundation, Inc.
+
+;; Author: Eric M. Ludlam <zappo@gnu.org>
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.
+
+set mode "srecode-template-mode"
+set escape_start "{{"
+set escape_end "}}"
+
+set application "tests"
+set project "/tmp/"
+
+context test
+
+template test-project
+"A template that only exists for files in /tmp."
+----
+Contents doesn't matter.
+----
+
+;; end
diff --git a/etc/srecode/test.srt b/etc/srecode/test.srt
index 3bbc33e72dc..9689f8f111f 100644
--- a/etc/srecode/test.srt
+++ b/etc/srecode/test.srt
@@ -83,13 +83,13 @@ template gapsomething :blank
 template inlinetext
 "Insert text that has no newlines"
 ----
- *In the middle*
+*In the middle*
 ----
 
 template includable :blank
 ----
 ;; An includable $COMMENT$ we could use.
-;; $^$
+;; $INPUTNAME$$^$
 ;; Text after a point inserter.
 ----
 
@@ -99,6 +99,8 @@ $>WI1:includable$
 ----
 
 template wrapinclude-around
+sectiondictionary "WI1"
+set INPUTNAME "[VAR]"
 ----
 $<WI1:includable$Intermediate Comments$/WI1$
 ----
@@ -145,4 +147,74 @@ OUTSIDE SECTION: $UTESTVAR1$
 INSIDE SECTION: $#A$$UTESTVAR1$$/A$
 ----
 
+template custom-arg-w-arg :utestwitharg
+----
+Value of xformed UTWA: $UTESTARGXFORM$
+----
+
+template custom-arg-w-subdict :utestwitharg
+sectiondictionary "UTLOOP"
+set NAME "item1"
+sectiondictionary "UTLOOP"
+set NAME "item2"
+sectiondictionary "UTLOOP"
+set NAME "item3"
+----
+All items here: $FOO_item1$ $FOO_item2$ $FOO_item3$
+----
+
+template nested-dictionary-syntax-flat
+section "TOP"
+  show SUB
+  set NAME "item1"
+end
+----
+$#TOP$$#SUB$sub $/SUB$$NAME$$/TOP$
+----
+
+template nested-dictionary-syntax-nesting
+section "TOP"
+  show SHOW1
+  set NAME "item1"
+  section "SUB"
+    show SHOW11
+    set NAME "item11"
+  end
+  show SHOW2
+  set NAME "item2"
+  section "SUB"
+    show SHOW21
+    set NAME "item21"
+  end
+  show SHOW3
+  set NAME "item3"
+  section "SUB"
+    show SHOW11
+    set NAME "item31"
+    section "SUB"
+      show SHOW311
+      set NAME "item311"
+    end
+    section "SUB"
+      show SHOW321
+      set NAME "item321"
+    end
+  end
+end
+----
+$#TOP$$#SUB$$NAME$$#SUB$-$NAME$$/SUB$  $/SUB$$/TOP$
+----
+
+template nested-dictionary-syntax-mixed
+section "TOP"
+  show SUB
+  set NAME "item1"
+end
+sectiondictionary "SECTION"
+show SUB
+set NAME "item2"
+----
+$#TOP$$NAME$$/TOP$ $#SECTION$$NAME$$/SECTION$
+----
+
 ;; end