mirror of
https://github.com/barrucadu/dejafu.git
synced 2024-12-30 00:52:37 +03:00
Fix a broken test
This commit is contained in:
parent
ea90e9fe5d
commit
d5afca652c
@ -73,7 +73,7 @@ thresholdValue = do
|
||||
|
||||
fork $ lock l >> modifyCVar_ x (return . (+1)) >> unlock l
|
||||
fork $ lock l >> modifyCVar_ x (return . (+2)) >> unlock l
|
||||
res <- spawn $ lock l >> readCVar x >>= \x' -> unlock l >> return (x' > 3)
|
||||
res <- spawn $ lock l >> readCVar x >>= \x' -> unlock l >> return (x' >= 3)
|
||||
|
||||
takeCVar res
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user