Data type for fully-qualified test name

1 files changed, 12 insertions, 0 deletions

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