From f57ff5611c28e42df9e419da3c9af166cd4c3570 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 23 May 2026 10:18:14 +0200
Subject: Evaluate test tag expressions

---
 src/TestMode.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/TestMode.hs')

diff --git a/src/TestMode.hs b/src/TestMode.hs
index 33f2493..d2cf00d 100644
--- a/src/TestMode.hs
+++ b/src/TestMode.hs
@@ -38,6 +38,7 @@ data TestModeInput = TestModeInput
 
 data TestModeState = TestModeState
     { tmsModules :: [ Module ]
+    , tmsTags :: [ ( ( ModuleName, Text ), [ Tag ] ) ]
     , tmsGlobals :: GlobalDefs
     , tmsNextTestNumber :: Int
     }
@@ -45,6 +46,7 @@ data TestModeState = TestModeState
 initTestModeState :: TestModeState
 initTestModeState = TestModeState
     { tmsModules = mempty
+    , tmsTags = mempty
     , tmsGlobals = mempty
     , tmsNextTestNumber = 1
     }
@@ -147,9 +149,10 @@ cmdLoad = do
 cmdLoadConfig :: Command
 cmdLoadConfig = do
     Just config <- asks tmiConfig
-    ( modules, globalDefs ) <- liftIO $ loadModules =<< getConfigTestFiles config
+    ( modules, tags, globalDefs ) <- liftIO $ loadModules =<< getConfigTestFiles config
     modify $ \s -> s
         { tmsModules = modules
+        , tmsTags = tags
         , tmsGlobals = globalDefs
         }
     cmdOut "load-config-done"
-- 
cgit v1.2.3