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/Script/Var.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'src/Script')

diff --git a/src/Script/Var.hs b/src/Script/Var.hs
index 2c50101..a3620f4 100644
--- a/src/Script/Var.hs
+++ b/src/Script/Var.hs
@@ -3,6 +3,7 @@ module Script.Var (
     FqVarName(..), textFqVarName, unpackFqVarName, unqualifyName,
     TypedVarName(..),
     ModuleName(..), textModuleName,
+    TestName(..), textTestName,
     SourceLine(..), textSourceLine,
 ) where
 
@@ -53,6 +54,17 @@ newtype ModuleName = ModuleName [ Text ]
 textModuleName :: ModuleName -> Text
 textModuleName (ModuleName parts) = T.intercalate "." parts
 
+
+data TestName = TestName
+    { testNameModule :: ModuleName
+    , testNameBase :: Text
+    }
+    deriving (Eq, Ord)
+
+textTestName :: TestName -> Text
+textTestName (TestName (ModuleName mparts) base) = T.intercalate "." (mparts ++ [ base ])
+
+
 data SourceLine
     = SourceLine Text
     | SourceLineBuiltin
-- 
cgit v1.2.3