From 24f39540d34c819c7870adce9f363af704c7cda7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Mon, 24 Aug 2026 22:29:42 +0200
Subject: Data type for fully-qualified test name

---
 src/Parser.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'src/Parser.hs')

diff --git a/src/Parser.hs b/src/Parser.hs
index c94e1e8..928dd88 100644
--- a/src/Parser.hs
+++ b/src/Parser.hs
@@ -44,8 +44,10 @@ parseTestDefinition = label "test definition" $ toplevel ToplevelTest $ do
             { testContext = SomeExpr $ varExpr SourceLineBuiltin rootNetworkVar
             }
         href <- L.indentLevel
-        testName <- header
-        testModuleName <- gets testCurrentModuleName
+        testNameBase <- header
+        testNameModule <- gets testCurrentModuleName
+        let testName = TestName {..}
+
         osymbol ":" <* eol <* scn
 
         ref <- L.indentGuard scn GT href
-- 
cgit v1.2.3