From 648855e8a50b1ee3bef3120b64b5713b69190c9b Mon Sep 17 00:00:00 2001
From: Jeremy Ruston <jeremy@jermolene.com>
Date: Tue, 7 May 2024 19:09:38 +0100
Subject: [PATCH] Links in testcase output switch to the tab containing that
 tiddler

Thanks to @btheado for the suggestion
---
 core/ui/TestCases/DefaultTemplate.tid | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/core/ui/TestCases/DefaultTemplate.tid b/core/ui/TestCases/DefaultTemplate.tid
index 7a7042e82e..49b9050afd 100644
--- a/core/ui/TestCases/DefaultTemplate.tid
+++ b/core/ui/TestCases/DefaultTemplate.tid
@@ -1,6 +1,18 @@
 title: $:/core/ui/testcases/DefaultTemplate
 
 \whitespace trim
+\procedure linkcatcherActions()
+<%if [<navigateTo>has[title]] %>
+	<$let
+		state={{{ [<qualify "$:/state/testcase">] }}}
+	>
+		<$qualify title=<<state>> name="qualifiedState">
+			<$action-setfield $tiddler=<<qualifiedState>> text=<<navigateTo>>/>
+		</$qualify>
+	</$let>
+<%endif%>
+\end
+
 <$let
 	state={{{ [<qualify "$:/state/testcase">] }}}
 >
@@ -41,7 +53,9 @@ title: $:/core/ui/testcases/DefaultTemplate
 				<%if [<displayFormat>!match[]else[wikitext]match[plaintext]] %>
 					<pre><$view tiddler="Output" format="plainwikified" mode="block"/></pre>
 				<%else%>
-					<$transclude $tiddler="Output" $mode="block"/>
+					<$linkcatcher actions=<<linkcatcherActions>>>
+						<$transclude $tiddler="Output" $mode="block"/>
+					</$linkcatcher>
 				<%endif%>
 			</div>
 		</div>