diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-05-23 10:18:14 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-05-23 10:18:14 +0200 |
| commit | f57ff5611c28e42df9e419da3c9af166cd4c3570 (patch) | |
| tree | 0cd5850570b093cb0b20fd4074d4b802c502d426 /src/TestMode.hs | |
| parent | 29a9f747993663bf24877ceaa8cd2f3a03e9a538 (diff) | |
Evaluate test tag expressions
Diffstat (limited to 'src/TestMode.hs')
| -rw-r--r-- | src/TestMode.hs | 5 |
1 files changed, 4 insertions, 1 deletions
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" |