From 7e86cdf44dca02c225399d081ed92292fc40876f Mon Sep 17 00:00:00 2001
From: Jeremy Ruston <jeremy@jermolene.com>
Date: Thu, 27 Jul 2023 22:05:24 +0100
Subject: [PATCH] Add a test to avoid regressions on the handling of macros vs
 procedures

---
 .../Procedures-Double-Underscore.tid          | 26 +++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 editions/test/tiddlers/tests/data/transclude/Procedures-Double-Underscore.tid

diff --git a/editions/test/tiddlers/tests/data/transclude/Procedures-Double-Underscore.tid b/editions/test/tiddlers/tests/data/transclude/Procedures-Double-Underscore.tid
new file mode 100644
index 000000000..f22efb4f6
--- /dev/null
+++ b/editions/test/tiddlers/tests/data/transclude/Procedures-Double-Underscore.tid
@@ -0,0 +1,26 @@
+title: Procedures/Double/Underscore
+description: Checking that procedures don't expose parameters as variables wrapped in double underscores
+type: text/vnd.tiddlywiki-multiple
+tags: [[$:/tags/wiki-test-spec]]
+
+title: Output
+
+\whitespace trim
+\procedure mamacro(one:"red",two:"green")
+It is $one$ and $two$<<__one__>><<__two__>>.
+\end
+
+<$macrocall $name="mamacro"/>
+
+<$transclude $variable="mamacro"/>
+
+<$transclude $variable="mamacro" one="orange"/>
+
+<$transclude $variable="mamacro" 0="pink"/>
+
+<$transclude $variable="mamacro" one="purple" 1="pink"/>
+
++
+title: ExpectedResult
+
+<p>It is $one$ and $two$.</p><p>It is $one$ and $two$.</p><p>It is $one$ and $two$.</p><p>It is $one$ and $two$.</p><p>It is $one$ and $two$.</p>
\ No newline at end of file