voidlizard
/
hbs2
mirror of https://github.com/voidlizard/hbs2
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

minor endurance test fix

This commit is contained in:
voidlizard 2025-08-25 09:51:36 +03:00
parent ccc2154f1e
commit 4723fc10d5
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hbs2-tests/test/NCQ3/Endurance.hs
View File

@ -230,6 +230,11 @@ validateTestResult logFile = do
atomically $ modifyTVar refs (HM.insert h (Left ()))
_ -> none
entry $ bindMatch "compact" $ nil_ $ const none
entry $ bindMatch "merge" $ nil_ $ const none
entry $ bindMatch "sweep" $ nil_ $ const none
-- читаем лог построчно и скармливаем dict
rs <- lines <$> liftIO (IO.readFile logFile)
for_ rs $ \s -> case parseTop s of