barrucadu/dejafu
1
1
Fork 0
mirror of https://github.com/barrucadu/dejafu.git synced 2024-12-19 19:41:31 +03:00
Code Issues Projects Releases Wiki Activity

Fix a broken test

Browse Source
This commit is contained in:
Michael Walker 2015-01-23 15:11:56 +00:00
parent ea90e9fe5d
commit d5afca652c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/Tests/Cases.hs
View File

@ -73,7 +73,7 @@ thresholdValue = do
fork $ lock l >> modifyCVar_ x (return . (+1)) >> unlock l fork $ lock l >> modifyCVar_ x (return . (+1)) >> unlock l
fork $ lock l >> modifyCVar_ x (return . (+2)) >> 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 takeCVar res