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

wip, test fix

This commit is contained in:
voidlizard 2025-08-25 12:30:23 +03:00
parent 4723fc10d5
commit d04926ee05
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -272,6 +272,7 @@ ncq3EnduranceTest = do
_ -> 0
wSeed <- int <$> lookupValueDef (mkInt 1000) "w:seed"
wWindow <- int <$> lookupValueDef (mkInt 100000) "w:win"
wIdle <- dbl <$> lookupValueDef (mkDouble 200.00) "w:idle"
wIdleDef <- dbl <$> lookupValueDef (mkDouble 0.25) "w:idle:def"
wMaxBlk <- int <$> lookupValueDef (mkInt 65536) "w:maxblk"
@ -325,7 +326,7 @@ ncq3EnduranceTest = do
atomically do
modifyTVar refs (HPSQ.insert h w r)
size <- readTVar refs <&> HPSQ.size
when (size > 100000 ) do
when (size > wWindow ) do
modifyTVar refs HPSQ.deleteMin
_ -> none
@ -339,7 +340,7 @@ ncq3EnduranceTest = do
atomically do
modifyTVar blocks (HPSQ.insert h w ())
size <- readTVar blocks <&> HPSQ.size
when (size > 100000 ) do
when (size > wWindow ) do
modifyTVar blocks HPSQ.deleteMin
_ -> none